The Limits of 
Mathematics- 
Tutorial Version 



To Frangoise 



G J Chaitin 

IBM, P O Box 704 

Yorktown Heights, NY 

chaitin@watson.ibm.com 



September 12, 1995 



Abstract 



The latest in a series of reports presenting the information-theoretic in- 
completeness theorems of algorithmic information theory via algorithms 
written in specially designed versions of LISP. Previously in this LISP 
code only one-character identifiers were allowed, and arithmetic had to 
be programmed out. Now identifiers can be many characters long, and 
arithmetic with arbitrarily large unsigned decimal integers is built in. 
This and many other changes in the software have made this material 
much easier to understand and to use. 



Preface 



In a remarkable development, I have constructed a new definition for a 
self-delimiting universal Turing machine (UTM) that is easy to program 
and runs very quickly. This provides a new foundation for algorithmic 
information theory (AIT), which is the theory of the size in bits of 
programs for self-delimiting UTM's. Previously, AIT had an abstract 
mathematical quality. Now it is possible to write down executable 
programs that embody the constructions in the proofs of theorems. So 
AIT goes from dealing with remote idealized mythical objects to being 
a theory about practical down-to-earth gadgets that one can actually 
play with and use. 

This new self-delimiting UTM is implemented via software written 
in a new version of LISP that I invented especially for this purpose. 
This LISP was designed by writing a interpreter for it in Mathematica 
that was then translated into C. I have tested this software by running 
it on IBM RS/6000 workstations with the AIX version of UNIX. 

Using this new software and the latest theoretical ideas, it is now 
possible to give a self-contained "hands on" mini-course presenting 
very concretely my latest proofs of my two fundamental information- 
theoretic incompleteness theorems. The first of these theorems states 
that an A^-bit formal axiomatic system cannot enable one to exhibit 
any specific object with program-size complexity greater than N + c. 
The second of these theorems states that an A^-bit formal axiomatic 
system cannot enable one to determine more than N + (/ scattered bits 
of the halting probability Q. 

Most people believe that anything that is true is true for a reason. 
These theorems show that some things are true for no reason at all, 
i.e., accidentally, or at random. 
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As is shown in this course, the algorithms considered in the proofs 
of these two theorems are now easy to program and run, and by looking 
at the size in bits of these programs one can actually, for the first time, 
determine exact values for the constants c and c'. 

I used this approach and software in an intensive short course on the 
limits of mathematics that I gave at the University of Maine in Orono in 
the summer of 1994. I also lectured on this material during a stay at the 
Santa Fe Institute in the spring of 1995, and at a meeting at the Black 
Sea University in Romania in the summer of 1995. A summary of the 
approach that I used on these three occasions will appear under the title 
"A new version of algorithmic information theory" in a forthcoming 
issue of the new magazine Complexity, which has just been launched 
by the Santa Fe Institute and John Wiley and Sons. 

After presenting this material at these three different places, it be- 
came obvious to me that it is extremely difficult to understand it in its 
original form. So next time, at the Rovaniemi Institute of Technology 
in the summer of 1996, I am going to use the new, more understandable 
software in this report; everything has been redone in an attempt to 
make it as easy to understand as possible. 

For their stimulating invitations, I thank Prof. George Markowsky 
of the University of Maine, Prof. Cristian Calude of the University of 
Auckland, Prof. John Casti of the Santa Fe Institute, and Prof. Veikko 
Keranen of the Rovaniemi Institute of Technology. And I am grateful 
to IBM for supporting my research for almost thirty years, and to my 
current management chain at the IBM Research Division, Dan Prener, 
Christos Georgiou, Eric Kronstadt, Jeff Jaffe, and Jim McGroddy. 

All enquires, comments and suggestions regarding this software 
should be sent via e-mail to chaitin@watson.ibm.com. 
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The New Idea 



Here is a quick summary of this new LISP, in which atoms can now 
either be words or unsigned decimal integers. First of all, comments 
are written like this: [comment] . Each LISP primitive function has 
a fixed number of arguments. ' is QUOTE, = is EQ, and atom, car, 
cdr , cadr , caddr , cons are provided with their usual meaning. We 
also have lambda, define, let, if and display and eval. The no- 
tation " indicates that an S-expression with explicit parentheses fol- 
lows, not what is usually the case in this LISP, an M-expression, in 
which the parentheses for each primitive function are implicit, nil 
denotes the empty list (), and the logical truth values are true 
and false. For dealing with unsigned decimal integers we have +, 
-, *, "> <, >, <=, >=, baselO-to-2, base2-to-10. 

So far this is fairly standard. The new idea is this. We define 
our standard self-delimiting universal Turing machine as follows. Its 
program is in binary, and appears on a tape in the following form. First 
comes a LISP expression, written in ASCII with 8 bits per character, 
and terminated by an end-of-line character '\n'. The TM reads in 
this LISP expression, and then evaluates it. As it does this, two new 
primitive functions read-bit and read-exp with no arguments may be 
used to read more from the TM tape. Both of these functions explode if 
the tape is exhausted, killing the computation, read-bit reads a single 
bit from the tape, and read-exp reads in an entire LISP expression, in 
8-bit character chunks. 

This is the only way that information on the TM tape may be 
accessed, which forces it to be used in a self-delimiting fashion. This 
is because no algorithm can search for the end of the tape and then 
use the length of the tape as data in the computation. If an algorithm 
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attempts to read a bit that is not on the tape, the algorithm aborts. 

How is information placed on the TM tape in the first place? Well, 
in the starting environment, the tape is empty and any attempt to read 
it will give an error message. To place information on the tape, one 
must use the primitive function try which tries to see if an expression 
can be evaluated. 

Consider the three arguments a, {3 and 7 of try. The meaning of 
the first argument is as follows. If a is no-time-limit, then there is 
no depth limit. Otherwise a must be an unsigned decimal integer, and 
gives the depth limit (limit on the nesting depth of function calls and 
re-evaluations). The second argument [3 of try is the expression to be 
evaluated as long as the depth limit a is not exceeded. And the third 
argument 7 of try is a fist of bits to be used as the TM tape. 

The value u returned by the primitive function try is a triple. The 
first element of v is success if the evaluation of (3 was completed suc- 
cessfully, and the first element of v is failure if this was not the 
case. The second element of v is out-of-data if the evaluation of [3 
aborted because an attempt was made to read a non-existent bit from 
the TM tape. The second element of v is out-of-time if evaluation of 
/3 aborted because the depth limit a was exceeded. These are the only 
possible error fiags, because this LISP is designed with maximally per- 
missive semantics. If the computation j3 terminated normally instead 
of aborting, the second element of u will be the result produced by the 
computation /3, i.e., its value. That's the second element of the list v 
produced by the try primitive function. 

The third element of the value z/ is a list of all the arguments to 
the primitive function display that were encountered during the eval- 
uation of (3. More precisely, if display was called times during the 
evaluation of (3, then v will be a fist of N elements. The N arguments 
of display appear in v in chronological order. Thus try can not only 
be used to determine if a computation j3 reads too much tape or goes 
on too long (i.e., to greater depth than a), but try can also be used to 
capture all the output that (3 displayed as it went along, whether the 
computation /3 aborted or not. 

In summary, all that one has to do to simulate a self-delimiting 
universal Turing machine U (p) running on the binary program p is to 
write 
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try no-time-limit 'eval read-exp p 

This is an M-expression with parentheses omitted from primitive func- 
tions. (Recall that all primitive functions have a fixed number of argu- 
ments.) With the parentheses supplied, it becomes the S-expression 

(try no-time-limit (' (eval (read-exp))) p) 

This says that one is to read a complete LISP S-expression from the TM 
tape p and then evaluate it without any time limit and using whatever 
is left on the tape p. 

Some more primitive functions have also been added. The 2- 
argument function append denotes list concatenation, and the 1- 
argument function bits converts an S-expression into the list of the 
bits in its ASCII character string representation. These are used for 
constructing the bit strings that are then put on the TM tape using 
try's third argument 7. We also provide the 1-argument functions 
size and length that respectively give the number of characters in 
an S-expression, and the number of elements in a list. Note that the 
functions append, size and length could be programmed rather than 
included as built-in primitive functions, but it is extremely convenient 
and much much faster to provide them built in. 

Finally a new 1-argumcnt identity function debug with the side- 
effect of outputting its argument is provided for debugging. Output 
produced by debug is invisible to the "official" display and try output 
mechanism, debug is needed because try o; /? 7 suppresses all output 
6 produced within its depth- controlled evaluation of Instead try 
collects all output 6 from within /? for inclusion in the final value ly 
that try returns, namely = (success/failure, value of j3, 9). 
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Course Outline 



The course begins by explaining with examples my new LISP. See 
examples .r. 

Then the theory of LISP program-size complexity is developed a 
little bit. LISP program-size complexity is extremely simple and con- 
crete. In particular, it is easy to show that it is impossible to prove 
that a self-contained LISP expression is elegant, i.e., that no smaller 
expression has the same value. To prove that an iV-character LISP 
expression is elegant requires a formal axiomatic system that itself has 
at least LISP complexity — 418. Sec godel.r. 

Next we define our standard self-delimiting universal Turing ma- 
chine U{p) using 

cadr try no-time-limit 'eval read-exp p 

as explained in the previous chapter. 
Next we show that 

Hix,y)<Hix) + Hiy) + c 

with c = 432. Here H{- ■ ■) denotes the size in bits of the smallest pro- 
gram that makes our standard universal Turing machine compute • • •. 
Thus this inequality states that the information needed to compute the 
pair {x, y) is bounded by a constant c plus the sum of the informa- 
tion needed to compute x and the information needed to compute y. 
Consider 

cons eval read-exp 
cons eval read-exp 
nil 
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This is an M-expression with parentheses omitted from primitive func- 
tions. With all the parentheses supplied, it becomes the S-expression 

(cons (eval (read-exp)) 
(cons (eval (read-exp)) 
nil)) 

c = 432 is just 8 bits plus 8 times the size in characters of this LISP 
S-expression. See univ.r. 

Consider a binary string x whose size is bits. In univ.r we also 
show that 

H{x) < 2\x\+c 

and 

H{x) < \x\+ H{\x\) + c' 

with c = 1106 and c' = 1152. As before, the programs for doing this 
are exhibited and run. 

Next we turn to the self-delimiting program-size complexity H[X) 
for infinite r.e. sets X. This is defined to be the size in bits of the small- 
est LISP expression ^ that executes forever without halting and outputs 
the members of the r.e. set X using the LISP primitive display, which 
is an identity function with the side-effect of outputting the value of 
its argument. Note that this LISP expression ^ is allowed to read 
additional bits or expressions from the TM tape using the primitive 
functions read-bit and read-exp if ^ so desires. But of course ^ is 
charged for this; this adds to (^'s program size. 

It is in order to deal with such unending expressions ^ that the LISP 
primitive function for time-limited evaluation try captures all output 
from display within its second argument (3. 

Now consider a formal axiomatic system A of complexity i.e., 
with a set of theorems Ta that considered as an r.e. set as above has 
self-delimiting program-size complexity H(Ta) = N. We show that A 
cannot enable us to exhibit a specific S-cxprcssion s with self-delimiting 
complexity H{s) greater than N + c. Here c = 4696. See godel2.r. 

Next we show two different ways to calculate the halting probability 
fl of our standard self-delimiting universal Turing machine in the limit 
from below. See omega . r and omega2 . r. The first LISP program for 
doing this, omega. 1, is quite straight- forward. The second program 
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for calculating fi, omega2.1, uses a much more clever method than 
omega. 1 does. Using omega2.1 as a subroutine, we show that if f2jv is 
the first N bits of the fractional part of the base-two real number 
then 

ff(Qjv) > N-c 

with c = 9488. Again this is done with a program that can actually be 
run and whose size gives us a value for c. Sec omegaS . r. 

Consider again the formal axiomatic system A with complexity A^, 
i.e., with self-delimiting program-size complexity H{Ta) = N. Using 
the lower bound of A" — c on H{flN) established in omegaS.r, we show 
that A cannot enable us to determine more than the first N + c' bits 
of Q. Here (/ — 16400. In fact, we show that A cannot enable us to 
determine more than N + c' bits of fl even if they are scattered and we 
leave gaps. See godel3 . r. 

Last but not least, the philosophical implications of all this should 
be discussed, especially the extent to which it tends to justify experi- 
mental mathematics. This would be along the lines of the discussion 
in my talk transcript "Randomness in arithmetic and the decline and 
fall of reductionism in pure mathematics," in J. Cornwell, Nature's 
Imagination, Oxford University Press, 1995, pp. 27-44. 

This concludes our "hand-on" mini-course on the information- 
theoretic limits of mathematics. 
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Software User Guide 



All the software for this course is written in a new version of LISP. The 
interpreter for this new LISP was originally written in Mathematica. 
See lisp.m. Then the interpreter was re-written in C. See lisp.c. 

I used Version 2.1 of Mathematica as described in the second edition 
of Wolfram's book Mathematica — A System for Doing Mathematics by 
Computer, running on IBM RISC System/6000 workstations. 

There are four different kinds of files: 

1. *.m files are Mathematica code. 

2. * . c files are C code. 

3. * . 1 files are LISP code. 

4. * .r files are the output from LISP runs. 

To run the lisp.m interpreter, first enter Mathematica using the 
command math. Then tell Mathematica, 

« lisp.m 

To run a LISP program xyz . 1 and produce output file xyz . r, enter 

run @ "xyz" 
To run several programs, enter 

run /@ {"xxx" , "yyy" , "zzz"} 
To run the eight LISP program in the course, enter 
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runall 

Type Exit to exit from Mathematica. 

Here is how to run the programs that compute the halting proba- 
bihty fl in the hmit from below: 

math 

<< lisp.m 

run /(§ {"omega" , "omega2"} 

run @ "omegaS" 

Exit 

To run the lisp.c interpreter, first compile it with the command 

cc -0 -olisp lisp.c 

This produces a 32 megabyte interpreter. If that is too large, reduce 
the #def ine SIZE 1000000 in lisp . c and recompile it. To run a LISP 
program xyz . 1 and produce output file xyz . r, enter 

lisp < xyz.l > xyz.r 

These two LISP interpreters run at vastly different speeds, but they 
should always produce identical results. This can easily be checked, for 
example as follows: 

diff xyz.r xyz.r2 > out 
vi out 



Bibliography 



[1] S. Wolfram, Mathematica — A System for Doing Mathematics by 
Computer, second edition, Addison- Wesley, 1991. 

[2] B. W. Kernighan and D. M. Ritchie, The C Programming Lan- 
guage, second edition. Prentice Hall, 1988. 

[3] G. J. Chaitin, "Randomness in arithmetic and the decline and fall 
of reductionism in pure mathematics," in J. Cornwell, Nature's 
Imagination, Oxford University Press, 1995, pp. 27-44. 

[4] G. J. Chaitin, "The Berry paradox," Complexity 1 (1995), pp. 
26-30. 

[5] G. J. Chaitin, "A new version of algorithmic information theory," 
Complexity, to appear. 



17 



The Limits of Mathematics 



Part II 
The Course 



19 



examples, r 



lisp.c 

LISP Interpreter Run 

[ test new lisp ] 
' (ab c d) 

expression ( ' (ab c d) ) 
value Cab c d) 

' Cab cd ) 

expression C (ab cd)) 
value Cab cd) 

car ' (aa bb cc) 

expression (car (' (aa bb cc))) 
value aa 

cdr * (aa bb cc) 

expression (cdr (' (aa bb cc))) 
value (bb cc) 

cadr ' (aa bb cc) 

expression (car (cdr (* (aa bb cc)))) 
value bb 

caddr ' (aa bb cc) 

expression (car Ccdr Ccdr (' Caa bb cc))))) 
value cc 

cons 'Caa bb cc) * Cdd ee ff) 

expression Ccons C* Caa bb cc)) (' (dd ee ff) 
value CCaa bb cc) dd ee ff) 



expression Ccar aa) 
value aa 



expression (cdr aa) 

value aa 

cons aa bb 

expression (cons aa bb) 

value aa 
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expression (cons aa) 
value Caa) 

("cons 'Caa) ' Cbb) '(cc)) 

expression (cons C Caa)) C Cbb)) C Ccc))) 
value CCaa) bb) 



expression C C ' (lambda (x) x) ) a) 
value a 



expression x 
value X 



atom * aa 



expression (atom ( ' aa) ) 
value true 

atom * (aa) 

expression (atom ( ' (aa) ) ) 
value false 

if true X y 

expression (if true x y) 

value X 

if false X y 

expression (if false x y) 
value y 

if xxx X y 

expression (if xxx x y) 
value X 

let (f x) if atom display x x (f car x) 
(f '(((a)b)c)) 

expression ((' (lambda (f) (f (' (((a) b) c))))) (' (lambda ( 

x) (if (atom (display x)) x (f (car x)))))) 
display ( ( (a) b) c) 

display ( (a) b) 

display (a) 
display a 
value a 



expression f 
value f 

let (cat X y) if atom x y cons car x (cat cdr x y) 
(cat '(a b c) ' (d e f)) 

expression ((* (lambda (cat) (cat (' (a b c)) (' (d e f))))) 
(' (lambda (x y) (if (atom x) y (cons (car x) (cat 
(cdr x) y)))))) 
value (a b c d e f ) 



expression cat 
value cat 

define (cat x y) if atom x y cons car x (cat cdr x y) 



def ine cat 
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value (lambda (x y) (if (atom x) y (cons (car x) (cat (c 

dr x) y)))) 

cat 

expression cat 

value (lambda (x y) (if (atom x) y (cons (car x) (cat (c 

dr x) y)))) 

(cat '(a b c) ' (d e f)) 

expression (cat (' (a b c)) (' (d e f))) 
value (a b c d e f ) 

define x cadr ' (a b c) 

expression (car (cdr (' (a b c)))) 
define x 
value b 



X 



expression x 
value b 



define x caddr ' (a b c) 



expression (car (cdr (cdr (' (a b c))))) 
define x 
value c 



expression x 

value c 

length display 
bits ' a 

expression (length (display (bits (' a)))) 

display (0 110000100001010) 

value 16 



length display 
bits ' abc 

expression (length (display (bits ( ' abc) ) ) ) 

display (0 110000101100010011000110 

1 1 0) 

value 32 

nil 

expression nil 
value ( ) 

length display 
bits nil 

expression (length (display (bits nil) ) ) 

display (0 01010000010100100001010) 
value 24 



length display 
bits ' (a) 

expression (length (display (bits (' (a))))) 

display (0 010100001100001001010010 

1 1 0) 
value 32 

size abc 



expression 
value 



(size abc) 
3 
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size ' C a b c ) 

expression (size C Ca b c))) 

value 7 

length ' C a b c ) 

expression (length (' (a b c))) 

value 3 

+ abc 15 

expression C+ abc 15) 

value 15 

+ '(abc) 15 

expression C+ C ' Cabc) ) 15) 

value 15 

+ 10 15 

expression C+ 10 15) 

value 25 

- 10 15 

expression (- 10 15) 

value 

- 15 10 

expression (- 15 10) 

value 5 



expression (* 10 15) 

value 150 

~ 10 15 

expression (" 10 15) 

value 1000000000000000 

< 10 15 

expression C< 10 15) 

value true 

< 10 10 

expression C< 10 10) 

value false 

> 10 15 

expression C> 10 15) 

value false 

> 10 10 

expression (> 10 10) 

value false 

<= 10 15 

expression (<= 10 15) 

value true 

<= 10 10 

expression (<= 10 10) 

value true 
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expression (>= 10 15) 
value false 



expression (>= 10 10) 
value true 



expression C= 10 15) 
value false 



expression C= 10 10) 
value true 

let (fx) if = X 1 * display x (f - x 1) 
Cf 5) 

expression ((' (lambda (f) (f 5))) (' (lambda (x) (if (= x) 
1 (* (display x) (f (- x 1))))))) 

display 5 
display 4 
display 3 
display 2 
display 1 
value 120 

let (fx) if = X 1 * x (f - X 1) 
(f 100) 

expression ((' (lambda (f) (f 100))) (' (lambda (x) (if (= 

x) 1 (* X (f (- X 1))))))) 
value 93326215443944152681699238856266700490715968264381 

62146859296389521759999322991560894146397615651828 

62536979208272237582511852109168640000000000000000 

00000000 

try 

'let (fx) if = X 1 * display x (f - x 1) 
(f 5) 

nil 

expression (try (' ((* (lambda (f) (f 5))) C (lambda (x) ( 
if (= x) 1 (* (display x) (f (- x 1)))))))) nil) 
value (failure out-of-time () ) 

try 1 

'let (fx) if = X 1 * display x (f - x 1) 
(f 5) 

nil 

expression (try 1 (' ((' (lambda (f) (f 5))) (' (lambda (x) ( 
if (= x) 1 (* (display x) (f (- x 1)))))))) nil) 
value (failure out-of-time () ) 

try 2 

'let (fx) if = X 1 * display x (f - x 1) 
(f 5) 

nil 

expression (try 2 (' ((' (lambda (f) (f 5))) (' (lambda (x) ( 
if (= x) 1 (* (display x) (f (- x 1)))))))) nil) 

value (failure out-of-time (5) ) 

try 3 

'let (fx) if = X 1 * display x (f - x 1) 
(f 5) 

nil 
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expression (try 3 (' ((' (lambda (f) (f 5))) (' (lambda (x) ( 
if (-Ox) 1 (* (display x) (f (- x 1)))))))) nil) 
value (failure out-of-time (5 4)) 

try 4 

'let (fx) if = X 1 * display x (f - x 1) 
(f 5) 

nil 

expression (try 4 (' ((' (lambda (f) (f 5))) (' (lambda (x) ( 
if (= x) 1 (* (display x) (f (- x 1)))))))) nil) 
value (failure out-of-time (5 4 3)) 

try 5 

'let (f x) if = X 1 * display x (f - x 1) 

(f 5) 

nil 

expression (try 5 ( ' ( ( ' (lambda (f ) (f 5) ) ) ( ' (lambda (x) ( 
if (-Ox) 1 (* (display x) (f (- x 1)))))))) nil) 
value (failure out-of-time (5432)) 

try 6 

'let (fx) if = X 1 * display x (f - x 1) 
(f 5) 

nil 

expression (try 6 ( ' ( ( * (lambda (f ) (f 5) ) ) ( ' (lambda (x) ( 
if (= x) 1 (* (display x) (f (- x 1)))))))) nil) 
value (failure out-of-time (5 4 3 2 1)) 

try 7 

'let (fx) if = X 1 * display x (f - x 1) 
(f 5) 

nil 

expression (try 7 (' ((' (lambda (f) (f 5))) (' (lambda (x) ( 
if (-Ox) 1 (* (display x) (f (- x 1)))))))) nil) 
value (success 120 (5432 1)) 

try no-time-limit 

'let (fx) if = X 1 * display x (f - x 1) 
(f 5) 

nil 

expression (try no-time-limit ( ' ( ( ' (lambda (f ) (f 5) ) ) ( ' ( 
lambda (x) (if (= x) 1 (* (display x) (f (- x 1) 
))))))) nil) 

value (success 120 (54321)) 

eval display '+ 5 15 

expression (eval (display (' (+5 15)))) 
display (+ 5 15) 

value 20 

try 6 

'let (fx) if = X nil 

cons * 2 display read-bit (f - x 1) 

(f 5) 
'(10101) 

expression (try 6 ( ' ( ( * (lambda (f ) (f 5) ) ) (' (lambda (x) ( 
if (= x) nil (cons (* 2 (display (read-bit))) (f 
(- X 1)))))))) (' (10 10 1))) 
value (failure out-of-time (10 10 1)) 

try 7 

'let (f x) if = X nil 

cons * 2 display read-bit (f - x 1) 

(f 5) 
'(10101) 



expression (try 7 (' ((* (lambda (f) (f 5))) (' (lambda (x) ( 
if (= x) nil (cons (* 2 (display (read-bit))) (f 
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C- X 1)))))))) (' (10 10 1))) 
value (success (2 2 2) (1 1 1)> 

try 7 

'let (fx) if = X nil 

cons * 2 display read-bit Cf - x 1) 

(f 5) 
'(10 1) 

expression (try 7 C ((' (lambda (f) (f 5))) (' (lambda (x) ( 
if (= x) nil (cons (* 2 (display (read-bit))) (f 
(- X 1)))))))) (' (1 1))) 
value (failure out-of-data (1 D) 

try no-time-limit 

'let (fx) if = X nil 

cons * 2 display read-bit (f - x 1) 

(f 5) 
'(10 1) 

expression (try no-time-limit (' ((' (lambda (f) (f 5))) (' ( 
lambda (x) (if (= x) nil (cons (* 2 (display (re 
ad-bit))) (f (- X 1)))))))) (■ (1 1))) 

value (failure out-of-data (1 D) 

try 18 

'let (fx) if = X nil 

cons * 2 display read-bit (f - x 1) 

(f 16) 
bits 'a 

expression (try 18 (' ((' (lambda (f) (f 16))) (' (lambda (x) 
(if (- x) nil (cons (* 2 (display (read-bit))) 

(f (- X 1)))))))) (bits (■ a))) 
value (success (0 22000020000202 0) (Oil 

000010000101 0)) 

baselO-to-2 128 

expression (baselO-to-2 128) 
value (10 0) 

baselO-to-2 256 

expression (baselO-to-2 256) 
value (10000000 0) 

baselO-to-2 257 

expression (baselO-to-2 257) 
value (10000000 1) 

base2-to-10 '(1111) 

expression (base2-to-10 ( ' (1111))) 
value 15 

base2-to-10 '(10000) 

expression (base2-to-10 (' (10 0))) 
value 16 

base2-to-10 '(10001) 

expression (base2-to-10 (' (10 1))) 
value 17 

try 20 

' cons abcdef try 10 

'let (f n) (f display + n 1) (f 0) [infinite loop] 
nil nil 



expression (try 20 (' (cons abcdef (try 10 (' ((' (lambda (f) 
(f 0))) (' (lambda (n) (f (display (+ n 1))))))) 
nil))) nil) 
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value (success Cabcdef failure out-of-time (12 3 4 5 6 

7 8 9)) O) 

try 10 

'cons abcdef try 20 

'let Cf n) (f display + n 1) (f 0) [infinite loop] 
nil nil 

expression (try 10 (' (cons abcdef (try 20 (' ((' (lambda (f) 
(f 0))) (' (lambda (n) (f (display (+ n 1))))))) 
nil))) nil) 
value (failure out-of-time () ) 

try no-time-limit 
' cons abcdef try 20 

'let (f n) (f display + n 1) (f 0) [infinite loop] 
nil nil 

expression (try no-time-limit (* (cons abcdef (try 20 (' ((' 
(lambda (f) (f 0))) (' (lambda (n) (f (display (+ 
n 1))))))) nil))) nil) 

value (success (abcdef failure out-of-time (12 3 4 5 6 

7 8 9 10 11 12 13 14 15 16 17 18 19)) ()) 

try 10 

'cons abcdef try no-time-limit 

'let (f n) (f display + n 1) (f 0) [infinite loop] 
nil nil 

expression (try 10 (' (cons abcdef (try no-time-limit (* ((* 
(lambda (f) (f 0))) (' (lambda (n) (f (display (+ 
n 1))))))) nil))) nil) 

value (failure out-of-time () ) 

read-bit 

expression (read-bit ) 
value out -of -dat a 

read-exp 

expression (read-exp) 
value out -of -dat a 

bits ' (abc def ) 

expression (bits (' (abc def))) 

value (0 010100001100001011000100 

1100011001000000110010001 
1001010110011000101001000 
10 10) 

try no-time-limit 'read-exp bits '(abc def) 

expression (try no-time-limit (' (read-exp)) (bits (' (abc de 
f)))) 

value (success (abc def) ()) 

bits 'abc 

expression (bits (' abc)) 

value (0 110000101100010011000110 

1 1 0) 

' (abc (def ghi) j) 

expression (' (abc (def ghi) j)) 
value (abc (def ghi) j) 

try 'read -bit nil 

expression (try (' (read-bit)) nil) 
value ( f allure out -of -dat a ( ) ) 



try 'read-exp nil 
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expression (try (' (read-exp)) nil) 
value (failure out-of-data () ) 

try 'read-exp bits 'abc 

expression (try ( ' (read-exp) ) (bits (' abc) ) ) 
value (success abc () ) 

try 'cons read-exp cons read-bit nil bits 'abc 

expression (try ( ' (cons (read-exp) (cons (read-bit) nil) ) ) 

(bits (' abc))) 
value (failure out-of-data C) ) 

try 'cons read-exp cons read-bit nil append bits 'abc '(0) 

expression (try (' Ccons (read-exp) (cons (read-bit) nil))) 

(append (bits (' abc)) (' (0)))) 
value (success (abc 0) ()) 

try 'cons read-exp cons read-bit nil append bits *abc * (1) 

expression (try ( ' (cons (read-exp) (cons (read-bit) nil) ) ) 

(append (bits (' abc)) (' (1)))) 
value (success (abc 1) () ) 

try 'read-exp bits '(a b) 

expression (try (' (read-exp)) (bits (' (a b)))) 
value (success (a b) ()) 

try 'cons read-exp cons read-bit nil bits '(a b) 

expression (try (' (cons (read-exp) (cons (read-bit) nil))) 

(bits (' (a b)))) 
value (failure out-of-data () ) 

try 'cons read-exp cons read-exp nil bits * (a b) 

expression (try ( ' (cons (read-exp) (cons (read-exp) nil) ) ) 

(bits (' (a b)))) 
value ( f ailur e out -of -dat a ( ) ) 

try 'read-exp bits '(abc(def ghi)j) 

expression (try (' (read-exp)) (bits (' (abc (def ghi) j))) 
) 

value (success (abc (def ghi) j) ()) 

try 'read-exp '(1111) [character is incomplete] 

expression (try (' (read-exp)) (' (111 1))) 
value (failure out-of-data ()) 

try 'read-exp '(00001010) [nothing in record; only \n] 

expression (try (' (read-exp)) (' (0 0001010))) 
value (success ()) 

try 'cons read-exp cons read-exp nil append bits ' (a b c) bits ' (d e f) 

expression (try ( ' (cons (read-exp) (cons (read-exp) nil) ) ) 

(append (bits (' (a b c))) (bits (' (d e f))>)) 
value (success ((abc) (def)) ()) 

try 'read-exp '(1111 1111 0000 1010) [invalid character] 

expression (try (' (read-exp)) (' (111111110000 

1 1 0))) 
value (success ()) 

= 0003 3 

expression (= 3 3) 
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value 
000099 



expression 99 
value 99 



expression x 
value c 



expression C C ' (lambda (x) x) ) b) 
value b 



expression x 
value c 



let 99 45 99 



expression ((' (lambda (99) 99)) 45) 
value 99 



End of LISP Run 

Elapsed time is seconds. 



godel.r 



lisp.c 



LISP Interpreter Run 



[[[ Show that a formal system of lisp complexity H_lisp (FAS) = N 
cannot enable us to exhibit an elegant S-expression of 
size greater than N 419. 

An elegant lisp expression is one with the property that no 
smaller S-expression has the same value. 

Setting: formal axiomatic system is never-ending lisp expression 
that displays elegant S-expressions . 

]]] 

[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, and therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

define (size-it-and-run-it exp) 

cadr cons display size display exp 
cons eval exp 
nil 



define size-it-and-run-it 

value (lambda (exp) (car (cdr (cons (display (size (disp 

lay exp))) (cons (eval exp) nil))))) 



C size-it-and-run-it ' 

+ 5 15 

) 



expression (size-it-and-run-it (' (+5 15))) 

display (+ 5 15) 

display 8 

value 20 



(size-it-and-run-it ' 

[ Examine list x for element that is more than n characters in size. ] 
[ If not found returns false. ] 
let (examine x n) 

if atom X false 

if < n size car x car* x 

(examine cdr x n) 

[ Here we are given the formal axiomatic system FAS. ] 
let fas 'display ~ 10 439 [insert FAS here preceeded by '] 

[ n = the number of characters in program including the FAS. ] 
let n display + 419 size display fas [ n = 419 + I FAS I ] 

[ Loop running the formal axiomatic system ] 
let (loop t) 

let v display try display t fas nil [Run the formal system for t time steps.] 
let s (examine caddr v n) [Did it output an elegant s-exp larger than this 
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program?] 
if s eval s 

(contradiction! )] 
if = failure car 
failure 



(loop 



[If found elegant s-exp bigger than this program, 
run it so that its output is our output 

t 1) [If not, keep looping] 
[or halt if formal system halted.] 



(loop 0) [Start loop running with t = 0.] 

) [end size-it-and-run-it] 

expression Csize-it-and-run-it (' ((' (lambda (examine) ((' ( 
lambda (fas) ((* (lambda (n) ((' (lambda (loop) (1 
oop 0))) (' (lambda (t) ((' (lambda (v) ((' (lambd 
a (s) (if s (eval s) (if (= failure (car v)) (loop 
(+ t D) failure)))) (examine (car (cdr (cdr v))) 
n)))) (display (try (display t) fas nil)))))))) ( 
display (+ 419 (size (display fas))))))) (' (displ 
ay (- 10 439)))))) (' (lambda (i n) (if (atom x) f 
also (if (< n (size (car x))) (car x) (examine (cd 
r x) n)))))))) 

display ((' (lambda (examine) ((' (lambda (fas) ((* (lambd 
a (n) ((' (lambda (loop) (loop 0))) (' (lambda (t) 

((* (lambda (v) ((' (lambda (s) (if s (eval s) (i 
f (- failure (car v)) (loop (+ t 1)) failure)))) ( 
examine (car (cdr (cdr v))) n) ) ) ) (display (try (d 
isplay t) fas nil)))))))) (display (+ 419 (size (d 
isplay fas))))))) (' (display (" 10 439)))))) (' ( 
lambda (x n) (if (atom x) false (if (< n (size (ca 
r x))) (car x) (examine (cdr x) n)))))) 
display 439 

display (display (" 10 439)) 

display 439 
display 

display (success 10000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

0000000000000000000000000000000000000000000000000 

(1000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000)) 
value 10000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 

00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
0000000000000000000000000000000000000000 



End of LISP Run 



Elapsed time is seconds . 



univtm.r 



lisp . c 

LISP Interpreter Run 
[uni vtm . 1] 

[[[ 

First steps with my new construction for 
a self -delimiting universal Turing machine. 
We show that 

HCx,y) <= HCx) + HCy) + c 
and determine c. 

Consider a bit string x of length |x|. 
We also show that 

HCx) <= 2|x| + c 
and that 

HCx) <= |x| + HCthe binary string for |x|) + c 
and determine both these c's. 

]]] 

[first demo the new lisp primitive functions] 
append '(123456789 0) 'Cabcdefghi) 

expression Cappend C (123456789 0)) (' (abcdef 
g h i))) 

value Cl234567890abcdefghi) 
read-bit 

expression (read-bit ) 
value out -of -dat a 

try 'read-bit nil 

expression (try (' (read-bit)) nil) 
value (failure out-of -data ) 

try 'read-bit ' (1) 

expression (try (' (read-bit)) (' (1))) 
value (success 1 ()) 

try 'read-bit ' (0) 

expression (try (' (read-bit)) (' (0))) 
value (success ()) 

try 'read-bit ' (x) 

expression (try (' (read-bit)) (' (x))) 
value (success 1 C) ) 

try 'cons cons read-bit nil cons cons read-bit nil nil '(1 0) 

expression (try (' (cons (cons (read-bit) nil) (cons (cons 

(read-bit) nil) nil))) (' (1 0))) 
value (success ((1) (0)) ()) 
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try 'cons cons display read-bit nil cons cons display read-bit nil nil ' (1 0) 

expression (try ( ' (cons (cons (display (read-bit) ) nil) (c 

ons (cons (display (read-bit)) nil) nil))) (' (10 
))) 

value (success ((1) (0)) (1 0)) 

try 'cons cons display read-bit nil cons cons display read-bit nil cons cons 
display read-bit nil nil 

'd 0) 

expression (try ( ' (cons (cons (display (read-bit) ) nil) (c 
ons (cons (display (read-bit) ) nil) (cons (cons (d 
isplay (read-bit)) nil) nil)))) (' (1 0))) 

value (failure out-of-data (1 0)) 

try 'read-exp display bits a 

expression (try (' (read-exp)) (display (bits a))) 
display (0 110000100001010) 

value (success a () ) 

try 'read-exp display bits b 

expression (try (' (read-exp)) (display (bits b))) 
display (0 110001000001010) 

value (success b () ) 

try 'read-exp display bits c 

expression (try ( ' (read-exp) ) (display (bits c) ) ) 
display (0 110001100001010) 
value (success c () ) 

try 'read-exp display bits d 

expression (try (' (read-exp)) (display (bits d))) 
display (0 110010000001010) 

value (success d () ) 

try 'read-exp display bits e 

expression (try (' (read-exp)) (display (bits e))) 
display (0 110010100001010) 

value (success e () ) 

try 'read-exp bits ' (aa bb cc dd ee) 

expression (try (' (read-exp)) (bits (' (aa bb cc dd ee)))) 

value (success (aa bb cc dd ee) ()) 

try 'read-exp bits '(12 (3 4) 56) 

expression (try (' (read-exp)) (bits (' (12 (3 4) 56)))) 

value (success (12 (3 4) 56) ()) 

try 'cons read-exp cons read-exp nil 

append bits ' (abc def) bits ' (ghi jkl) 

expression (try ( ' (cons (read-exp) (cons (read-exp) nil) ) ) 
(append (bits (' (abc def))) (bits (' (ghi jkl))) 
)) 

value (success ((abc def) (ghi jkl)) ()) 

[ 

Here is the self -delimiting universal Turing machine! 
(with slightly funny handling of out-of-tape condition) 

] 

define (U p) cadr try no-time-limit 'eval read-exp p 
define U 

value (lambda Cp) Ccai- (cdr (try no-time-limit ( ' (eval 

(read-exp))) p)))) 

[ 
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The length of this bit string is the 
constant c in H(x) <= 2|x| + 2 + c. 

] 

length bits ' 
let (loop) let X read-bit 
let y read-bit 
if = X y 

cons X (loop) 
nil 

(loop) 

expression (length (bits ( ' ( ( ' (lambda (loop) (loop) ) ) ( ' (1 
ambda () ((' (lambda (x) ((' (lambda (y) (if (= x 
y) (cons X (loop)) nil) ) ) (read-bit) ) ) ) (read-bit) 
))))))) 

value 1104 

(U 

append 
bits 

'let (loop) let X read-bit let y read-bit if = x y cons x (loop) nil 
(loop) 

'(0 01100110 1) 

) 

expression (U (append (bits ( ' ( ( ' (lambda (loop) (loop) ) ) ( ' 
(lambda () ((' (lambda (x) ((' (lambda (y) (if (= 
X y) (cons x (loop)) nil))) (read-bit)))) (read-b 
It))))))) (' (001100110 1)))) 
value (0 10 1) 

(U 

append 
bits 

'let (loop) let X read-bit let y read-bit if = x y cons x (loop) nil 
(loop) 

'(0 01100110 0) 

) 

expression (U (append (bits ( ' ( ( ' (lambda (loop) (loop) ) ) ( ' 
(lambda () ((' (lambda (x) ((' (lambda (y) (if (= 
X y) (cons x (loop) ) nil) ) ) (read-bit) ) ) ) (read-b 
it))))))) (' (001100110 0)))) 
value out -of -dat a 

[ 

The length of this bit string is the 
constant c in H(x,y) <= H(x) + H(y) + c. 

] 

length bits ' 
cons eval read-exp 
cons eval read-exp 
nil 

expression (length (bits ( ' (cons (eval (read-exp) ) (cons (ev 

al (read-exp)) nil))))) 
value 432 

(U 

append 

bits 'cons eval read-exp cons eval read-exp nil 
append 

bits 'let (f) let x read-bit let y read-bit if = x y cons x (f) nil (f) 
append 

'(0 01100110 1) 
append 

bits 'let (f) let x read-bit let y read-bit if = x y cons x (f) nil (f) 
'(110011000 1) 

) 



expression (U (append (bits ( ' (cons (eval (read-exp) ) (cons 
(eval (read-exp) ) nil) ) ) ) (append (bits ( ' ( ( ' (la 
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mbda (f) (f))) (' (lambda ((' (lambda (x) ((■ ( 
lambda (y) (if (- x y) (cons x (f)) nil))) (read-b 
it)))) (read-bit))))))) (append (' (0011001 
10 1)) (append (bits (' ((' (lambda (f) (£))) (' 
(lambda ((' (lambda (i) ((' (lambda (y) (if (= 
X y) (cons x (f)) nil))) (read-bit)))) (read-bit)) 
))))) (• (110 110 1))))))) 
value ((0 10 1) (10 1 0)) 

[ 

The length of this bit string is the 
constant c in H(x) <= |x| + HC|x|) + c 

] 

length bits ' 
let (loop k) 
if = k nil 

cons read-bit (loop - k 1) 
(loop debug base2-to-10 eval debug read-exp) 

expression (length (bits ( ' ( ( ' (lambda (loop) (loop (debug ( 
base2-to-10 (eval (debug (read-exp) ))))))) (' (lam 
bda (k) (if (= k) nil (cons (read-bit) (loop (- 
k 1)))))))))) 

value 1152 

(U 

append 
bits ' 

let (loop k) if = k nil cons read-bit (loop - k 1) 
(loop debug base2-to-10 eval debug read-exp) 
append 

bits ''(1 0) [Arbitrary program for U to compute number of bits] 
'(0000 0001) [that many bits of data] 

) 

expression (U (append (bits ( ' ( ( ' (lambda (loop) (loop (debu 
g (base2-to-10 (eval (debug (read-exp)))))))) (' ( 
lambda (k) (if (= k) nil (cons (read-bit) (loop 
(- k 1))))))))) (append (bits (' (' (10 0)))) ( 
' (0000000 1))))) 

debug (' (10 0)) 

debug 8 

value (00000001) 
End of LISP Run 



Elapsed time is 1 seconds. 



godel2.r 



lisp.c 

LISP Interpreter Run 

[godel2.1] 
[[[ 

Show that a formal system of complexity N 
can't prove that a specific object has 
complexity > N + 4696. 

Formal system is a never halting lisp expression 

that output pairs (lisp object, lower bound 

on its complexity). E.g., (x 4) means 

that X has complexity HCx) greater than or equal to 4. 

]]] 

[ ExEonine pairs to see if 2nd element is greater than lower bound. ] 
[ Returns false to indicate not found, or pair if found. ] 
define (examine pairs lower-bound) 

if atom pairs false 

if < lower-bound cadr car pairs 
car pairs 

(examine cdr pairs lower-bound) 
define examine 

value (lambda (pairs lower-bound) (if (atom pairs) false 

(if (< lower-bound (car (cdr (car pairs)))) (car 
pairs) (examine (cdr pairs) lower-bound) ) ) ) 

(examine '((x 2) (y 3)) 0) 

expression (examine (' ((x 2) (y 3))) 0) 
value Cx 2) 

(examine '((x 2) (y 3)) 1) 

expression (examine (' ((x 2) (y 3))) 1) 
value (x 2) 

(examine '((x 2) (y 3)) 2) 

expression (examine (' ((x 2) (y 3))) 2) 
value (y 3) 

(examine '((x 2) (y 3)) 3) 

expression (examine (' ((x 2) (y 3))) 3) 
value false 

(examine '((x 2) (y 3)) 4) 

expression (examine (' ((x 2) (y 3))) 4) 
value false 



[This is an identity function with the size-effect of 
displaying the number of bits in a binary string.] 
define (display-number-of-bits string) 
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cadr cons display length string cons string nil 
define display-number-of-bits 

value Clambda (string) (car Ccdr (cons (display (length 

string)) (cons string nil))))) 

cadr try no-time-limit 'eval read-exp [This is the universal Turing machine U 
followed by its program] 

[display number of bits in entire program] 
(display-number-of-bits 

append [append prefix and data] 

[display number of bits in the prefix] 
(display-number-of-bits bits ' 

[ Examine pairs to see if 2nd element is greater than lower bound. ] 
[ Returns false to indicate not found, or pair if found. ] 
let (examine pairs lower-bound) 

if atom pairs false 

if < lower-bound cadr car pairs 
car pairs 

(examine cdr pairs lower-bound) 

[Main Loop - t is time limit, fas is bits of formal axiomatic system read so 
far] 

let (loop t fas) 

let V debug try debug t 'eval read-exp debug fas [run formal axiomatic system 
again] 

[look for theorem which is pair with 2nd element > # of bits read + size of 
this prefix] 

let s (examine caddr v debug + length fas 4696) 

if s car s [Found it ! Output first element of theorem and halt] 

if = car V success failure [Surprise, formal system halts, so we do too] 
if = cadr v out-of-data (loop t append fas cons read-bit nil) 

[Read ajiother bit of formal axiomatic system] 
if = cadr v out-of-time (loop + t 1 fas) 

[Increase time limit] 
unexpected-condition [This should never happen.] 

(loop nil) [Initially, time limit and no bits of formal axiomatic system 
read] 

) [end of prefix, start of formal axiomatic system] 
bits ' display' (x 4881) 

) [end of entire program for universal Turing machine U] 

expression (car (cdr (try no-time-limit ( ' (eval (read-exp) ) ) 
(display-number-of-bits (append (display-number-o 
f -bits (bits ( ' ( ( ' (lambda (examine) ( ( ' (lambda 
(loop) (loop nil))) (' (lambda (t fas) ((' (lamb 
da (v) CC (lambda (s) (if s (car s) (if (car v 
) success) failure (if (= (car (cdr v) ) out-of-dat 
a) (loop t (append fas (cons (read-bit) nil))) (if 

(= (car (cdr v)) out-of-time) (loop (+ t 1) fas) 
unexpected-condition) ) ) ) ) ) (examine (car (cdr (cdr 
v))) (debug (+ (length fas) 4696)))))) (debug (tr 
y (debug t) (' (eval (read-exp))) (debug fas)))))) 
) ) ) ( ' (lambda (pairs lower-bound) (if (atom pairs 
) false (if (< lower-bound (car (cdr (car pairs))) 
) (car pairs) (examine (cdr pairs) lower-bound)))) 
))))) (bits (' (display (' (x 4881)))))))))) 



display 4696 

display 4880 

debug 

debug 

debug (failure out-of-data ()) 

debug 4696 

debug 

debug (0) 

debug (failure out-of-data () ) 
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debug 
debug 
debug 
debug 



10000101 0) 
debug (success Cx 4881) CCx 

debug 4880 
value X 

End of LISP Run 



Elapsed time is 1 seconds. 



omega, r 



lisp.c 

LISP Interpreter Run 
[omega . 1] 

[ [ [ [ Omega in the limit from below ! ] ] ] ] 

[Generate all bit strings of length k] 
define (all-bit-strings-of-size k) 
if = k '(()) 

C extend-by-one-bit (all-bit-strings-of-size - k 1)) 
define all-bit-strings-of-size 

value (lambda (k) (if (= k) (' (())) (extend-by-one-bi 

t (all-bit-strings-of-size (- k 1))))) 

[Append and 1 to each element of list] 
define (extend-by-one -bit x) 

if atom X nil 

cons append car x ' (0) 

cons append car x ' (1) 

(extend-by-one-bit cdr x) 

define extend-by-one-bit 

value (lambda (x) (if (atom x) nil (cons (append (car x) 

(' (0))) (cons (append (car x) (' (1))) (extend-b 
y-one-bit (cdr x)))))) 

(extend-by-one-bit ' ( (a) (b) ) ) 

expression (extend-by-one-bit (* ((a) (b)))) 
value ((a 0) (a 1) (b 0) (b 1)) 

(all-bit-strings-of-size 0) 

expression (all-bit-strings-of-size 0) 
value (()) 

(all-bit-strings-of-size 1) 

expression (all-bit-strings-of-size 1) 
value ((0) (D) 

(all-bit-strings-of-size 2) 

expression (all-bit-strings-of-size 2) 
value ((0 0) (0 1) (1 0) (1 D) 

(all-bit-strings-of-size 3) 

expression (all-bit-strings-of-size 3) 

value ((0 0) (0 1) (0 1 0) (0 1 1) (1 0) (1 1) ( 

110) (11 D) 

[Count programs in list p that halt within time t] 
define (count-halt p t) 
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if atom p 
+ 

if = success display car try t 'eval debug read-exp car p 
1 

(count-halt cdr p t) 



de f ine c cunt -hal t 

value (lambda (p t) (if (atom p) (+ (if (= success (di 

splay (car (try t (' (eval (debug (read-exp)))) (c 

ar p))))) 1 0) (count-halt (cdr p) t)))) 

(count-halt cons bits '+ 10 15 

cons bits 'let(f ) (f ) (f ) 
nil 

99) 



debug 
display 
debug 
display 

value 



(count-halt (cons (bits (' (+10 15))) (cons (bits 
(' ((' (lambda (f) (f))) (' (lambda O (f)))))) n 

il)) 99) 
(+ 10 15) 
success 

((' (lambda (f) (f))) (' (lambda () (f)))) 
failure 



(count-halt cons append bits 'read-bit ' (1) 

cons append bits 'read-exp '(1) 
nil 

99) 



debug 

display 

debug 

display 

value 



(count-halt (cons (append (bits ( ' (rsad-bit) ) ) ( ' 
(1))) (cons (append (bits (' (read-exp))) (' (1)) 
) nil)) 99) 
(read-bit) 
success 
(read-exp) 
failure 



[ 

The k th lower bound on Omega 

is the number of k bit strings that halt on U within time k 
divided by 2 raised to the power k. 

] 

define (omega k) cons (count-halt (all-bit-strings-of-size k) k) 
cons / 
cons "2k 
nil 



define omega 

value (lambda (k) (cons (count-halt (all-bit-strings-of- 

size k) k) (cons / (cons (" 2 k) nil)))) 



(omega 0) 

expression 

display 

value 



(omega 0) 
failure 
(0 / 1) 



(omega 1) 

expression 
display 
display 
value 



(omega 1) 
failure 
failure 
(0 / 2) 



(omega 2) 



expression 

display 

display 

display 

display 

value 



failure 
failure 
failure 
failure 
(0 / 4) 



omega.r 



(omega 3) 

expression (omega 3) 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

value CO / 8) 

(omega 8) 

expression (omega 8) 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

debug () 

display success 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 
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display failure 
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failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
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failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 
failure 



omega.r 



display failure 

display failure 

display failure 

display failure 

display failure 

display failure 
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display failure 
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display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 
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display failure 
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display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

display failure 

value Cl / 256) 

End of LISP Run 



Elapsed time is seconds. 



omega2.r 



lisp.c 

LISP Interpreter Run 
[omega2 . 1] 

[[[[ Omega in the limit from below! ]]]] 
[[[[ Version II ]]]] 

[Count programs with prefix bit string p that halt within time t] 
[among all possible extensions by e more bits] 
define (count-halt prefix time bits-lef t-to-extend) 
if = bits-lef t-to-extend 

if = success display car try time 'eval debug read-exp display prefix 
1 

+ (count-halt append prefix ' (0) time - bits-lef t-to-extend 1) 
(count-halt append prefix ' (1) time - bits-lef t-to-extend 1) 

define count-halt 

value (lambda (prefix time bits-lef t-to-extend) (if (= b 

its-lef t-to-extend 0) (if (= success (display (car 

(try time (' (eval (debug (read-exp)))) (display 
prefix))))) 1 0) (+ (count-halt (append prefix (' 
(0))) time (- bits-lef t-to-extend 1)) (count-halt 
(append prefix (' (1))) time (- bits-lef t-to-exten 
d 1))))) 



(count-halt bits 'cons read-bit cons read-bit nil no-time-limit 0) 

expression (count-halt (bits (' (cons (read-bit) (cons (read- 
bit) nil)))) no-time-limit 0) 
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display 
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(cons (read-bit) 
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10 10) 



(cons (read-bit) nil)) 



(count-halt bits 'cons read-bit cons read-bit nil no-time-limit 1) 



expression (count-halt (bits ( ' (cons (read-bit) (cons (read- 
bit) nil)))) no-time-limit 1) 

display (0 010100001100011011011110 
1101110011100110010000000 
1010000111001001100101011 
0000101100100001011010110 
0010011010010111010000101 
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failure 




(count-halt bits 'cons read-bit cons read-bit nil no-time-limit 2) 



expression 
display 



debug 

display 

display 
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display 

display 



(count -halt (bits ( ' (cons (read-bit) (cons (read- 
bit) nil) ) ) ) no-time-limit 2) 
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debug 

display 

display 



debug 

display 

display 
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(read-bit) 
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[ 

The k th lower bound on Omega 

is the number of k bit strings that halt on U within time k 
divided by 2 raised to the power k. 

] 

define (omega k) cons (count-halt nil k k) 
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cons / 
cons "2k 
nil 

define omega 

value (lambda (k) (cons (count-halt nil k k) (cons / (co 

ns C" 2 k) nil)))) 



(omega 0) 



expression 


(omega 0) 


display 





display 


failure 


value 


CO / 1) 


(omega 1) 




expression 


(omega 1) 


display 


CO) 


display 


failure 


display 


CD 


display 


failure 


value 


(0 / 2) 


(omega 2) 




expression 


(omega 2) 


display 


CO 0) 


display 


failure 


display 


(0 1) 


display 


failure 


display 


CI 0) 


display 


failure 


display 


CI 1) 


display 


failure 


value 


(0 / 4) 


(omega 3) 




expression 


(omega 3) 


display 


(0 0) 


display 


failure 


display 


CO 1) 


display 


failure 


display 


CO 1 0) 


display 


failure 


display 


(0 1 1) 


display 


failure 


display 


(1 0) 


display 


failure 


display 


CI 1) 


display 


failure 


display 


(1 1 0) 


display 


failure 


display 


CI 1 1) 


display 


failure 


value 


CO / 8) 



End of LISP Run 



Elapsed time is 1 seconds. 
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lisp.c 

LISP Interpreter Run 
[omegaS . 1] 

[[[ 

Show that 

HCCImega_n) > n - 9488. 
Omega_n is the first n bits of Omega, 
where we choose 

Omega = xxxOllllll . . . 
instead of 

Omega = xxxlOOOOOO. . . 
if necessary. 
]]] 

[This is an identity function with the size-effect of 
displaying the length in bits of the binary prefix.] 
define (display-length-of -prefix prefix) 

cadr cons display length prefix cons prefix nil 

def ine display-length-of -pref ix 

value (lambda (prefix) (car (cdr (cons (display (length 

prefix)) (cons prefix nil))))) 

cadr try no-time-limit 'eval read-exp [Univeral Turing machine U] 
display 

[followed by its program:] 
append [append prefix and data] 

[code to display size of prefix in bits] 
(display-length-of -pref ix bits ' 

let (count-halt prefix time bits-left-to-extend) 
if = bits-left-to-extend 

if = success car try time *eval read-exp prefix 
1 

+ (count-halt append prefix ' (0) time - bits-left-to-extend 1) 
(count-halt append prefix '(1) time - bits-left-to-extend 1) 

let (omega k) cons (count-halt nil k k) 
cons / 
cons "2k 
nil 

[Read and execute from remainder of tape 
a program to compute an n-bit 
initial piece of Omega.] 

let w debug eval debug read-exp 

[Convert to rational number] 
let n length w 

let w debug cons base2-to-10 w 
cons / 
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cons " 2 n 
nil 

let (loop k) [Main Loop] 

let X debug (omega debug k) [Compute the kth lower bound on Omega] 

if debug C<=rat w x) (big nil k n) [Are the first n bits OK? If not, bump 
k.] 

(loop + k 1) [Form the union of all output of n-bit 
programs within time k, output it, 
and halt. 

Hiis is bigger than anything of complexity 
less than or equal to n!] 
[This total output will be bigger than each individual output , 
and therefore must come from a program with more than n bits. 

] 

[Compare two rational binary numbers, i.e., is x = (a / b) <= y = (c / d) ?] 
let (<=rat x y) 

let a car debug x 

let b caddr x 

let c car debug y 

let d caddr y 

<= * a d * b c 

[Union of all output of n-bit programs within time k.] 
let (big prefix time bits-lef t-to-add) 

if = bits-left-to-add 

try time 'eval read-exp prefix 

append (big append prefix '(0) time - bits-left-to-add 1) 

(big append prefix ' (1) time - bits-left-to-add 1) 

(loop 0) [Start main loop running with k = 0.] 

) [end of prefix] 

bits ' [Here is the data: an optimal program to compute n bits of 

Omega] 

'(0000 0001) [n = 8! Are these really the first 8 bits of Omega?] 

expression (car (cdr (try no-time-limit ( ' (eval (read-exp) ) ) 

(display (append (display-length-of -prefix (bits 
( * ( ( ' (leiiQbda (count -halt) ( ( ' (lambda (omega) ( ( 
' (lambda (u) ((' (lambda (n) ((' (lambda (w) ((' 
(lambda (loop) ( ( ' (lambda (<=rat) ( ( ' (lambda (bi 
g) (loop 0))) (' (lambda (prefix time bits-lef t-to 
-add) (if (= bits-left-to-add) (try time (' (eva 
1 (read-exp))) prefix) (append (big (append prefix 

(' (0))) time C- bits-left-to-add 1)) (big (appen 
d prefix (' (1))) time (- bits-left-to-add 1)))))) 
))) (' (lambda (x y) ((' (lambda (a) ((' (lambda ( 
b) ((' (lambda (c) ((' (lambda (d) «= (* a d) (* 
b c)))) (car (cdr (cdr y)))))) (car (debug y))))) 
(car (cdr (cdr x)))))) (car (debug x)))))))) (' (1 
ambda (k) ((' (lambda (x) (if (debug (<=rat w x)) 
(big nil k n) (loop (+ k 1))))) (debug (omega (deb 
ug k))))))))) (debug (cons (base2-to-10 w) (cons / 

(cons (" 2 n) nil))))))) (length w)))) (debug (ev 
al (debug (read-exp) )))))) ( ' (lambda (k) (cons (c 
ount-halt nil k k) (cons / (cons (" 2 k) nil)))))) 
)) (' (lambda (prefix time bits-lef t-to-extend) (i 
f (= bits-left-to-extend 0) (if (= success (car (t 
ry time (' (eval (read-exp))) prefix))) 1 0) (+ (c 
ount-halt (append prefix (' (0))) time (- bits-lef 
t-to-extend 1) ) (count-halt (append prefix ( ' (1) ) 
) time C- bits-left-to-extend 1)))))))))) (bits (' 

(' (0000000 1))))))))) 
display 9488 

display (0 010100000101000001001110 

0100000001010000110110001 
1000010110110101100010011 
0010001100001001000000010 

1000011000110110111101110 
1010110111001110100001011 
0101101000011000010110110 
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0000110000001000000011000 
0001000000011000000100000 
0011000000100000001100000 
0100000001100010010100100 
1010010000101 0) 

debug C (00000001)) 

debug CO 1) 

debug (1 / 256) 

debug 

debug (0/1) 

debug (1 / 256) 

debug (0/1) 

debug false 

debug 1 

debug (0 / 2) 

debug (1 / 256) 

debug CO / 2) 

debug false 

debug 2 

debug (0 / 4) 

debug (1 / 256) 

debug CO / 4) 

debug false 

debug 3 

debug (0 / 8) 

debug (1 / 256) 

debug CO / 8) 

debug false 

debug 4 

debug CO / 16) 

debug Cl / 256) 

debug CO / 16) 

debug false 

debug 5 

debug CO / 32) 

debug Cl / 256) 

debug CO / 32) 

debug false 

debug 6 

debug CO / 64) 

debug Cl / 256) 

debug CO / 64) 

debug false 

debug 7 

debug CO / 128) 

debug Cl / 256) 

debug CO / 128) 

debug false 

debug 8 

debug Cl / 256) 

debug Cl / 256) 

debug Cl / 256) 

debug true 

value Cf allure out-of-data () failure out-of-data C) f ai 

lure out-of-data () failure out-of-data () failure 

out-of-data () failure out-of-data () failure out 
-of -data failure out-of-data () failure out-of- 
data C) failure out-of-data () success C) C) f ailu 
re out-of-data () failure out-of-data C) failure o 
ut-of-data C) failure out-of-data C) failure out-o 
f-data C) failure out-of-data C) failure out-of-da 
ta failure out-of-data C) failure out-of-data C 
) failure out-of-data C) failure out-of-data C) fa 
ilure out-of-data C) failure out-of-data () f ailur 
e out-of-data C) failure out-of-data () failure ou 
t-of-data C) failure out-of-data C) failure out-of 
-data C) failure out-of-data () failure out-of -dat 
a C) failure out-of-data () failure out-of-data () 

failure out-of-data () failure out-of-data () f ai 
lure out-of-data () failure out-of-data () failure 

out-of-data C) failure out-of-data C) failure out 
-of -dat a C) failure out-of-data C) failure out-of- 
data C) failure out-of-data () failure out-of-data 

C) failure out-of-data () failure out-of-data () 
failure out-of-data () failure out-of-data () fail 



omegaS.r 



lire out-of -data C) failure out-of-data () failure 
out-of-data () failure out-of-data C) failure out- 
of-data C) failure out-of-data () failure out-of -d 
ata C) failure out-of-data failure out-of-data 
C) failure out-of-data C) failure out-of-data () f 
ailure out-of-data () failure out-of-data () f ailu 
re out-of-data () failure out-of-data () failure o 
ut-of-data () failure out-of-data () failure out-o 
f-data () failure out-of-data () failure out-of -da 
ta C) failure out-of-data C) failure out-of-data ( 
) failure out-of-data () failure out-of-data () fa 
ilure out-of-data C) failure out-of-data () f ailur 
e out-of-data C) failure out-of-data C) failure ou 
t-of-data C) failure out-of-data () failure out-of 
-data () failure out-of-data () failure out-of -dat 
a C) failure out-of-data () failure out-of-data () 

failure out-of-data C) failure out-of-data C) f ai 
lure out-of-data () failure out-of-data C) failure 

out-of-data C) failure out-of-data () failure out 
-of -dat a C) failure out-of-data C) failure out-of- 
data C) failure out-of-data () failure out-of-data 

C) failure out-of-data C) failure out-of-data C) 
failure out-of-data () failure out-of-data C) fail 
ure out-of-data () failure out-of-data C) failure 
out-of-data () failure out-of-data C) failure out- 
of-data C) failure out-of-data C) failure out -of -d 
ata () failure out-of-data () failure out-of-data 
C) failure out-of-data () failure out-of-data () f 
ailure out-of-data () failure out-of-data () failu 
re out-of-data C) failure out-of-data C) failure o 
ut-of-data () failure out-of-data () failure out-o 
f-data () failure out-of-data () failure out-of -da 
ta C) failure out-of-data () failure out-of-data ( 
) failure out-of-data () failure out-of-data () fa 
ilure out-of-data C) failure out-of-data C) failur 
e out-of-data C) failure out-of-data () failure ou 
t-of-data C) failure out-of-data C) failure out-of 
-data C) failure out-of-data () failure out-of -dat 
a C) failure out-of-data () failure out-of-data () 

failure out-of-data () failure out-of-data C) fai 
lure out-of-data () failure out-of-data C) failure 

out-of-data () failure out-of-data () failure out 
-of -data C) failure out-of-data C) failure out-of- 
data C) failure out-of-data () failure out-of-data 

C) failure out-of-data () failure out-of-data () 
failure out-of-data () failure out-of-data C) fail 
ure out-of-data () failure out-of-data () failure 
out-of-data () failure out-of-data C) failure out- 
of-data C) failure out-of-data () failure out-of -d 
ata C) failure out-of-data C) failure out-of-data 
failure out-of-data C) failure out-of-data () f 
ailure out-of-data () failure out-of-data () failu 
re out-of-data C) failure out-of-data C) failure o 
ut-of-data () failure out-of-data () failure out-o 
f-data () failure out-of-data C) failure out-of -da 
ta failure out-of-data C) failure out-of-data ( 
) failure out-of-data () failure out-of-data () fa 
ilure out-of-data C) failure out-of-data () failur 
e out-of-data C) failure out-of-data () failure ou 
t-of-data C) failure out-of-data () failure out-of 
-data C) failure out-of-data () failure out-of -dat 
a C) failure out-of-data () failure out-of-data C) 

failure out-of-data C) failure out-of-data () fai 
lure out-of-data C) failure out-of-data () failure 

out-of-data () failure out-of-data () failure out 
-of-data C) failure out-of-data C) failure out-of- 
data C) failure out-of-data () failure out-of-data 

() failure out-of-data C) failure out-of-data C) 
failure out-of-data () failure out-of-data C) fail 
ure out-of-data () failure out-of-data () failure 
out-of-data C) failure out-of-data C) failure out- 
of-data C) failure out-of-data C) failure out-of -d 
ata failure out-of-data () failure out-of-data 
() failure out-of-data C) failure out-of-data () f 
ailure out-of-data () failure out-of-data () failu 
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re out -of -data () failure out-of-data () failure o 
ut-of-data () failure out-of-data () failure out-o 
f-data failure out-of-data () failure out-of-da 
ta C) failure out-of-data C) failure out-of-data ( 
) failure out-of-data C) failure out-of-data C) fa 
ilure out-of-data () failure out-of-data () f ailur 
e out-of-data C) failure out-of-data () failure ou 
t-of-data C) failure out-of-data () failure out-of 
-data C) failure out-of-data C) failure out-of -dat 
a C) failure out-of-data () failure out-of-data () 

failure out-of-data () failure out-of-data C) f ai 
lure out-of-data () failure out-of-data C) failure 

out-of-data C) failure out-of-data C) failure out 
-of -dat a () failure out-of-data C) failure out-of- 
data C) failure out-of-data () failure out-of-data 

C) failure out-of-data () failure out-of-data () 
failure out-of-data C) failure out-of-data C) fail 
ure out-of-data () failure out-of-data C) failure 
out-of-data C) failure out-of-data C) failure out- 
of-data C) failure out-of-data C) failure out-of -d 
ata failure out-of-data () ) 



End of LISP Run 



Elapsed time is 2 seconds. 



godelS.r 



lisp.c 

LISP Interpreter Run 

[godelS.l] 
[[[ 

Show that a formal system of complexity N 
can't determine more than M + 9488 + 6912 
- N + 16400 bits of Gmega. 

Formal system is a never halting lisp expression 
that outputs lists of the form (lOXOXXXXlO). 
This stands for the fractional part of Omega, 
and means that these 0,1 bits of Omega are known. 
X stands for an unknown bit . 

]]] 

[Count number of bits in an omega that are determined.] 
define (number-of -bits-determined w) 
if atom w 

+ (number-of-bits -determined cdr w) 
if = X car w 

1 

define number-of -bits-determined 

value (lambda (w) (if (atom w) C+ (number-of -bit s-dete 

rmined (cdr w)> (if (= X (car w)) 1)))) 

[Test it.] 

(number-of -bits-determined '(X X X)) 

expression (number-of -bits-determined (' (X X X))) 
value 

(number-of -bits-determined '(1 X X)) 

expression (number-of -bits-determined (' (1 X X))) 
value 1 

(number-of -bits-determined '(1 X 0)) 

expression (number-of -bits-determined (' (1 X 0))) 
value 2 

(number-of -bits-determined '(1 1 0)) 

expression (number-of -bits-determined ( ' (110))) 
value 3 



[Merge bits of data into unknown bits of an omega.] 
define (supply-missing-bits w) 
if atom w nil 
cons if = X car w 
read-bit 
car w 

(supply-missing-bits cdr w) 
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define supply-mis sing-bits 

value (lambda (w) (if (atom w) nil (cons (if (= X (car w 

)) (read-bit) (car w)) (supply-missing-bits (cdr w 
))))) 

[Test it.] 

cadr try no-time-limit ' 
let (supply-missing-bits w) 

if atom w nil 

cons if = X car w 

read-bit 
car w 

(supply-missing-bits cdr w) 
(supply-missing-bits '(0 0X00X00 X)) 
'(1 1 1) 

expression (car (cdr (try no-time-limit ( ' ( ( ' (lambda (suppl 
y-missing-bits) (supply-missing-bits (' (00X00 
X X))))) (' (lambda (w) (if (atom w) nil (con 
s (if (= X (car w)) (read-bit) (car w)) (supply-mi 
ssing-bits (cdr w)))))))) (' (1 1 1))))) 

value (0 0100100 1) 

cadr try no-time-limit ' 
let (supply-missing-bits w) 
if atom w nil 
cons if = X car w 
read-bit 
car w 

(supply-missing-bits cdr w) 
(supply-missing-bits '(11X11X11 1)) 
'CO 0) 

expression (car (cdr (try no-time-limit C ' ( ( * (lambda (suppl 
y-missing-bits) (supply-missing-bits (' (11X11 
X 1 1 1))))) (' (lambda (w) (if (atom w) nil (con 
s (if (= X (car w) ) (read-bit) (car w)) (supply-mi 
ssing-bits (cdr w)))))))) (' (0 0))))) 

value (110110111) 



[ 

Examine omegas in list w to see if in any one of tliem 
the number of bits that are determined is greater than n. 
Returns false to indicate not found, or what it found. 

] 

define (examine w n) 
if atom w false 

if < n (number-of-bits-determined car w) 
car w 

(examine cdr w n) 
define examine 

value (lambda (w n) (if (atom w) false (if (< n (number- 

of-bits-determined (car w))) (car w) (examine (cdr 

w) n)))) 

[Test it.] 

(examine '((1 1) (1 1 1)) 0) 

expression (examine (' ((1 1) (1 1 1))) 0) 
value (1 1) 

(examine '((1 1) (1 1 1)) 1) 

expression (examine (' ((1 1) (1 1 1))) 1) 

value (1 1) 

(examine '((1 1) (1 1 1)) 2) 

expression (examine (' ((1 1) (1 1 1))) 2) 
value (1 1 1) 



(examine '((1 1) (1 1 1)) 3) 
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expression Cexamine C ' ((1 1) (1 1 1))) 3) 
value false 

Cexamine '((1 1) (1 1 1)) 4) 

expression Cexamine C ' C Cl 1) Cl 1 1) ) ) 4) 
value false 



[This is an identity function with the size-effect of 
displaying the number of bits in a binary string.] 
define Cdisplay-number-of-bits string) 
cadr cons display length string 
cons string 
nil 

define display-number-of-bits 

value Clambda Cstring) Ccar Ccdr Ccons Cdisplay Clength 

string)) Ccons string nil))))) 



cadr try no-time-limit 'eval read-exp [This is the universal Turing machine U 

followed by its program] 

append [Append missing bits of Omega to rest of program.] 

[Display number of bits in entire program excepting the missing bits of Omega] 

Cdisplay-number-of-bits 

append [Append prefix and formal axiomatic system] 

[Display number of bits in the prefix] 
Cdisplay-number-of-bits bits ' 

[Count number of bits in an omega that are determined.] 
let Cnumber-of -bits -determined w) 
if atom w 

+ Cnumber-of -bits-determined cdr w) 
if = X car w 

1 

[Merge bits of data into unknown bits of an omega.] 
let Csupply-missing-bits w) 
if atom w nil 
cons if = X car w 
read-bit 
car w 

Csupply-missing-bits cdr w) 

[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Return false to indicate not found, or what it found. 

] 

let Cexamine w n) 
if atom w false 

[ 

if < n Cnumber-of-bits-determined car w) 

] 

if < 1 Cnumber-of-bits-determined car w) [<==== changed n to 1 here so 
will succeed] 
car w 

Cexamine cdr w n) 

[Main Loop - t is time limit, fas is bits of formal axiomatic system read so 
far] 

let Cloop t fas) 

let V debug try debug t 'eval read-exp debug fas 

[Run formal axiomatic system again] 

[Look for theorem which determines more than Cc + # of bits read -i- size of 
this prefix) 

bits of Omega. Here c = 9488 is the constant in the inequality in HCOmega_n) 
> n - c 
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(see omegaS.l ajid omega3,r),] 
let s (exaiQine caddr v + 9488 debug + length fas 6912) 

if s (supply-missing-bits s) [Found it! Merge in undetermined bits, output 
result, and halt.] 

if = car V success failure [Surprise, formal system halts, so we do too] 
if = cadr v out-of-data (loop t append fas cons read-bit nil) 

[Read ajiother bit of formal axiomatic system] 
if = cadr v out-of-time (loop + t 1 fas) 

[Increase time limit] 
unexpected-condition [This should never happen.] 

(loop nil) [Initially, time limit and no bits of formal axiomatic system 
read] 

) [end of prefix, start of formal axiomatic system] 

[Toy formal system with only one theorem.] 
bits 'display '(1 X 0) 

) [end of prefix and formal axiomatic system] 
'CD [Missing bit of omega that is needed.] 

expression (car (cdr (try no-time-limit ( ' (eval (read-exp) ) ) 
(append (display-number-of-bits (append (display- 
number-of-bits (bits ( ' ( ( ' (lambda (number- of -bit 
s-determined) ( ( ' (lambda (supply-missing-bits) ( ( 
' (lambda (examine) ((' (lambda (loop) (loop nil 
))) (' (lambda (t fas) ((' (lambda (v) ((' (lambda 

Cs) (if s (supply-missing-bits s) (if (= (car v) 
success) failure (if (= (car (cdr v) ) out-of-data) 
(loop t (append fas (cons (read-bit) nil))) (if ( 
= (car (cdr v)) out-of-time) (loop (+ t 1) fas) un 
expected-condition) ) ) ) ) ) (examine (car (cdr (cdr v 
))) C+ 9488 (debug C+ (length fas) 6912))))))) (de 
bug (try (debug t) (' (eval (read-exp))) (debug fa 
s))))))))) (' (lambda (w n) (if (atom w) false (if 
(< 1 (number-of-bits-determined (car w) ) ) (car w) 
(examine (cdr w) n) ))))))) (' (lambda (w) (if (at 
om w) nil (cons (if C= X (car w)) (read-bit) (car 
w) ) (supply-missing-bits (cdr w) )))))))) (' (lambd 
a (w) (if (atom w) (+ (number-of-bits-determined 

(cdr w)) (if (- X (car w) ) 1))))))))) (bits (' 
(display (' (1 X 0))))))) (' (1)))))) 



display 6912 

display 7088 

debug 

debug C) 

debug ( f ailur e out -of -dat a C ) ) 

debug 6912 

debug 

debug (0) 

debug Cf ailur e out -of -dat a ( ) ) 

debug 6913 

debug 

debug (0 0) 

debug (failure out-of-data () ) 

debug 6914 

debug 

debug CO 1) 

debug Cf ailur e out -of -dat a C ) ) 

debug 6915 

debug 

debug (0 10) 

debug (failure out-of-data () ) 

debug 6916 

debug 

debug (00101) 

debug ( f ai lur e out -of -dat a ( ) ) 

debug 6917 

debug 

debug CO 1 1 0) 

debug ( f ai lur e out -of -dat a ( ) ) 

debug 6918 

debug 
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debug CO 1 1 0) 

debug (failure out-of-data ()) 

debug 6919 

debug 

debug CO 1 1 0) 

debug C f ailur e out -of -dat a C ) ) 

debug 6920 

debug 

debug CO 0101000 0) 

debug C f ai lure out -of -dat a ( ) ) 

debug 6921 

debug 

debug (0 01010000 1) 

debug ( f ailur e out -of -dat a C ) ) 

debug 6922 

debug 

debug CO 0101000011) 

debug C f ai lur e out -of -dat a ( ) ) 

debug 6923 

debug 

debug CO 01010000110) 

debug C f ailur e out -of -dat a C ) ) 

debug 6924 

debug 

debug (0 01010000110 0) 

debug (failure out-of-data ( ) ) 

debug 6925 

debug 

debug CO 010100001100 1) 

debug Cf ailur e out -of -dat a C ) ) 

debug 6926 

debug 

debug CO 01010000110010) 

debug Cf allure out-of-data () ) 

debug 6927 

debug 

debug CO 01010000110010 0) 

debug Cf ailure out-of-data ()) 

debug 6928 

debug 

debug CO 010100001100100 0) 

debug C f ailure out -of -dat a C ) ) 

debug 6929 

debug 

debug CO 0101000011001000 1) 

debug C f ai lur e out -of -dat a C ) ) 

debug 6930 

debug 

debug CO 01010000110010001 1) 

debug C f ailure out -of -dat a C ) ) 

debug 6931 

debug 

debug CO 0101000011001000110) 

debug C f ai lur e out -of -dat a ( ) ) 

debug 6932 

debug 

debug CO 0101000011001000110 1) 

debug C f ailure out -of -dat a ( ) ) 

debug 6933 

debug 

debug CO 010100001100100011010) 

debug Cf ailure out-of-data () ) 

debug 6934 

debug 

debug CO 010100001100100011010 0) 

debug Cf ailur e out -of -dat a C ) ) 

debug 6935 

debug 

debug CO 0101000011001000110100 1) 

debug Cf ailure out-of-data () ) 

debug 6936 

debug 

debug CO 010100001100100011010010 

) 

debug Cf ailure out-of-data () ) 
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debug 6937 
debug 

debug (0 010100001100100011010010 

1) 

debug C f ai lur e out -of -dat a ( ) ) 

debug 6938 
debug 

debug (0 010100001100100011010010 

1 1) 

debug ( f ai lur e out -of -dat a ( ) ) 

debug 6939 
debug 

debug (0 010100001100100011010010 

1 1 1) 

debug ( f ai lur e out -of -dat a C ) ) 

debug 6940 
debug 

debug (0 010100001100100011010010 

1110) 

debug (failure out-of-data ()) 

debug 6941 
debug 

debug (0 010100001100100011010010 

1110 0) 
debug (failure out-of-data ()) 

debug 6942 
debug 

debug (0 010100001100100011010010 

1110 1) 
debug (failure out-of-data ()) 

debug 6943 
debug 

debug (0 010100001100100011010010 

1110 11) 
debug (f ailur e out -of -dat a C ) ) 

debug 6944 
debug 

debug (0 010100001100100011010010 

11100110) 
debug (f ailur e out -of -dat a C ) ) 

debug 6945 
debug 

debug (0 010100001100100011010010 

11100110 1) 
debug ( f ailur e out -of -dat a ( ) ) 

debug 6946 
debug 

debug (0 010100001100100011010010 

1110011011) 
debug ( f ai lur e out -of -dat a C ) ) 

debug 6947 
debug 

debug (0 010100001100100011010010 

11100110111) 
debug ( f ai lur e out -of -dat a C ) ) 

debug 6948 
debug 

debug (0 010100001100100011010010 

111001101110) 
debug (failure out-of-data () ) 

debug 6949 
debug 

debug (0 010100001100100011010010 

111001101110 0) 
debug (failure out-of-data () ) 

debug 6950 
debug 

debug (0 010100001100100011010010 

1110011011100 0) 
debug (failure out-of-data () ) 

debug 6951 
debug 

debug (0 010100001100100011010010 

11100110111000 0) 
debug (failure out-of-data () ) 
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debug 6952 
debug 

debug (0 010100001 

1110011011 
debug C f ai lur e out -of -dat a 

debug 6953 
debug 

debug (0 010100001 

1110011011 
debug ( f ai lure out -of -dat a 

debug 6954 
debug 

debug (0 010100001 

1110011011 
debug ( f ai lur e out -of -dat a 

debug 6955 
debug 

debug (0 010100001 

1110011011 
debug (failure out-of-data 

debug 6956 
debug 

debug (0 010100001 

1110011011 
debug (failure out-of-data 

debug 6957 
debug 

debug (0 010100001 

1110011011 
debug (failure out-of-data 

debug 6958 
debug 

debug (0 010100001 

1110011011 
debug (failure out-of-data 

debug 6959 
debug 

debug (0 010100001 

1110011011 
debug (failure out-of-data 

debug 6960 
debug 

debug (0 010100001 

1110011011 
debug (failure out-of-data 

debug 6961 
debug 

debug (0 010100001 

1110011011 

) 

debug ( f ai lur e out -of -dat a 

debug 6962 
debug 

debug (0 010100001 

1110 110 11 

1) 

debug (failure out-of-data 

debug 6963 
debug 

debug (0 010100001 

1110011011 
1 0) 

debug (failure out-of-data 

debug 6964 
debug 

debug (0 010100001 

1110011011 

10 0) 

debug (failure out-of-data 

debug 6965 
debug 

debug (0 010100001 

1110 110 11 
1 0) 

debug (failure out-of-data 



100100011010010 
1 0) 

()) 



100100011010010 
1 1) 

()) 



100100011010010 
1000001 1) 

()) 



100100011010010 
10000011 0) 

()) 



100100011010010 
100000110 1) 

()) 



100100011010010 

1000001101 1) 

()) 



100100011010010 
10000011011 0) 

()) 



100100011010010 
100000110110 0) 

()) 



100100011010010 
1000001101100 0) 

()) 



100100011010010 
100000110110001 

()) 



100100011010010 
100000110110001 

()) 



100100011010010 
100000110110001 

()) 



100100011010010 
100000110110001 

()) 



100100011010010 
100000110110001 

()) 
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debug 6966 
debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
1 0) 

debug C f ai lur e out -of -dat a C ) ) 

debug 6967 
debug 

debug CO 010100001100100011010010 

1110011011100000110110001 

1 1) 
debug (failure out-of-data ()) 

debug 6968 
debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
1 1 0) 

debug ( f ai lur e out -of -dat a ( ) ) 

debug 6969 
debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
1000010 1) 

debug ( f ai lur e out -of -dat a C ) ) 

debug 6970 
debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
10000101 1) 

debug (failure out-of-data ()) 

debug 6971 

debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
100001011 1) 

debug ( f ai lur e out -of -dat a ( ) ) 

debug 6972 
debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
1000010111 1) 

debug ( f ai lur e out -of -dat a C ) ) 

debug 6973 
debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
10000101111 0) 

debug (f ailur e out -of -dat a C ) ) 

debug 6974 

debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
100001011110 0) 

debug ( f ai lur e out -of -dat a ( ) ) 

debug 6975 

debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
1000010111100 1) 

debug (failure out-of-data () ) 

debug 6976 

debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
10000101111001 0) 

debug (f ailur e out -of -dat a C ) ) 

debug 6977 

debug 

debug (0 010100001100100011010010 

1110011011100000110110001 
100001011110010 0) 

debug ( f ai lur e out -of -dat a ( ) ) 

debug 6978 

debug 

debug (0 010100001100100011010010 
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debug 7088 
value (110) 

End of LISP Run 



Elapsed time is 1 seconds. 
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(***** LISP.M *****) 

(* lisp interpreter *) 

getbit[] : = 
Block [ <x}, 
trouble = False; C* Mma bug bypass *) 

If [ atomS tape, (trouble = True; Throw® "out-of-data")] ; 
X = carS tape; 
tape = cdrS tape; 
If [ X === 0, 0, 1 ] 

] 

getchar[] := FromCharacterCode [ 

128*getbit[] + 64*getbit [] + 32*getbit [] + 16*getbit[] + 
8*getbit[] + 4*getbit[] + 2*getbit[] + getbit[] 

] 

getrecord [] : = 

Block [ { c, line = "", str }, 
inputbuffer2 = {}; 
While [ "\n" =!= (c = getchar[]), 
line = line <> c ] ; 

If[ trouble, Throwfl "out-of-data"]; C* Mma bug bypass *) 
C* keep only printable ASCII codes *) 

line = FromCharacterCode© 

Cases[ ToCharacterCode® line, n.Integer /; 32 <= n < 127 ]; 
str = StringToStreEon® line; 

inputbuffer2 = ReadList[str, Word, TokenWords->{" (" , ")"}]; 
Closed str; 

C* convert strings of digits to integers *) 

inputbuffer2 = If[DigitQQ#, ToExpressionStt, #]& /Q inputbuffer2 ; 

] 

getexp [rparenokay_ : False] : = 
BlockE { w, d, 1 = O }, 

C* supply unlimited number of )'s if tokens run out *) 
If[ inputbuffer2 == O, w = ")", 
w = FirstQ inputbuff er2; 
inputbuf f er2 = RestS inputbuff er2 ] ; 
Switch [ 
w, 

" ) " , Return® If [rpar enokay , " ) " , -C}] , 
'■(", 

(While [ ")" =!= (d = getexp [True] ) , 
AppendTo [l,d] 

]; 

ReturnQ 1 
). 
_» w 
] 

] 

atom[x_] : = 

MatchQ[ X, -OLStringLlnteger ] 
car [x_] ; = 
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If [ atom© X, X, Firsts x ] 
cdr [x_] : - 

If [ atomQ x, x, RestQ x ] 
cons[x_,y_] := 

If[ MatchQ[y,_String|_Iiiteger] , x, Prepend[y,x] ] 

aval [e2_ , a_ , d2_] : = 

Block [ {e = ©2, d = d2, f , args, x, y, z}, 
If[ MatchQ [e, .Integer] , ReturnQ e ]; 
If [ atom@ e, Block[ {names, values, pos}, 

{names, values} = a; 

pos = PositionEnames ,e ,{1}] ; 

Return® If [ pos == O, e, values [[pos [[1,1]]]] ] 

]]; 

f = evalEcarQ e,a,d]; 
e = cdrfl e; 
Switch [ 
f , 

Return® carQ e, 
"if" , ReturnQ 
Ii[ 

eval [carQ e,a,d] = != "false" , 
eval [car@cdrQ e , a, d] , 
eval [carQcdrQcdrS e , a, d] 

] 

]; 

args = eval [# , a , d] & /Q e ; 

X = carQ args; 

y = carfflcdrffl args; 

z = carQcdrQcdrS args ; 

Switch [ 

f , 

"read-bit" , ReturnQ getbit [] , 

"read-exp", Returnffl Cgetrecord[] ; getexp[]), 

"bits", ReturnQ FlattenE C RestQ IntegerDigits[256 + #, 2] )& /Q 
ToCharacterCode [ outputQx <> "\n" ] ], 

"car" , Return© car® x, 

" cdr " , ReturnQ cdr® x , 

" cons " , ReturnQ cons [x , y] , 

"size" , ReturnQ StringLengthQ outputQ x, 

"length". Return® Length® x, 

"+", Return® (nmbSx + nmb®y) , 

"-", Return® If [ nmbSx < nmbSy, 0, nmb®x - nmbSy ], 
"*", Return® (nmbQx * nnib®y) , 
" " " , Return® (nmbQx " nnib®y) , 

"<", Return® If [nmbQx < nmbQy, "true", "false"], 

">", ReturnQ If [nmbQx > nmbQy, "true", "false"], 

">=", ReturnQ If [nmbQx >= nmbQy, "true", "false"], 

"<=", Return® If [nmb®x <= nmb®y, "true", "false"] , 

"baselO-to-2" , Return® IntegerDigits [nmb®x, 2] , 

"base2-to-10", Return® Fold[ (2 #1 + If [#2===0,0, 1] )&, 0, x ] , 

"append", RetumQ Join[ If [atomQx,-[},x] , If [atomQy,{},y] ], 

"atom", ReturnQ If [ atomQ x, "true", "false" ], 

"=", Return® If [ x === y, "true", "false" ], 

"display" , Return© (AppendTo [out , x] ; 

If [ display, print[ "display", output® x ] ]; 

x), 

"debug" , ReturnQ (print [ "debug" , outputQ x ] ; 

x) 

]; 

If[ d == 0, ThrowQ "out-of-time" ]; 
d— ; 
Switch [ 
f , 

"eval" , ReturnQ eval [x, ,d] , 
"try" , ReturnQ 

Block [ {out = {]-, tape = z, display = False, xx}, 

If [ X === "no-time-limit", xx = Infinity, xx = nmbQ x ]; 

If[ XX < d, 

CatchQ {"success", eval[y, , xx] , out} // 

If [ # === "out-of-time", {"f ailure" ,#,out} , # ] & , 

CatchS {"success" ,eval [y , ,d] , out} // 

If[ # === "out-of-time", ThrowQ #, # ] & 

] // 
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If [ # === " out-of -data" , {"f allure" out} , # ] & ] C* end block *) 
] ; C* end switch *) 
f = cdrQ f; 

eval [ carQcdrQ f , bind [carQ f , args , a] , d ] 

] 

nmb [n_Integer] := n 
nmb[_] := 

bind [vars_?atom , args_ , a_] : = 
a 

bind [vars_ , args _ , a_] : = 
Block [ {nEones , values , pos} , 

{names, values} = bind[ cdrO vars, cdrQ args, a ]; 

pos = Position [names, carQ vars, {1}]; 

■[Prepend[Delete[names,pos] , carQ vars], 
Prepend[Delete [values, pos] , carffl args]} 

] 

eval [e_] : = 

c 

out = tape = {}; 
display = True; 

print [ "expression", output© e ]; 

CatchE eval [ e, {names, defs}. Infinity ] ] 

) 

eval [e_, ,d_] : = eval [e , {{"nil"} , {{}}}, d] 
run[fn_] := run[fn, "lisp.m", ".r"] 
word2 [] : = 

BlockC {w,line,str}. 
While [ 

inputbuffer == {}, 

line = Read[i, Record] ; 

If[ line EndOfFile, Abort[] ]; 

Prints line; 

WriteString[o,line, "\n"] ; 

C* keep only printable ASCII codes *) 

line = FromCharacterCode© 

Cases[ ToCharacterCode® line, n.Integer /; 32 <= n < 127 ]; 
str = StringToStream© line; 

inputbuffer = ReadList [str. Word, TokenWords->{" C" , ") " , " [" , "] " , " ' " , 
"\""}]; 
Close© str 

]; 

w = FirstQ inputbuffer; 
inputbuffer = Rest® inputbuffer; 

If [DigitQflw, ToExpressionQw , w] C* convert string of digits to integer 

] 

word [] : = 

Block [ {w}. 
While [ True, 
w = word2 [] ; 

If[ w =!= "[", RetumQ w ]; 
While [ word[] =!= "] " ] 

] 
] 

get [sexp_ : False ,rparenokay_ : False] : = 

BlockC {w = word[] , d, 1 ={}, name, def , body, varlist}, 
Switch [ 
w, 

" ) " , Return® If [rparenokay , " ) " , {}] , 
"C", 

While[ =!= (d = get [sexp, True] ) , 

AppendTo [l,d] 

]; 

Return© 1 
]; 

If [ sexp. Return® w ]; 
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Switch [ 
w, 

"\"", get [True], 
" cadr " , 

{"car" .{"cdr" ,get []}}, 

"caddr" , 

{ " car " , { '■ cdr " , { " cdr " , get [] }}} , 
"let", 

{name, def .body} = {get [] ,get[] ,get[]}-; 

iti 

IMatchQ [name , {} I _String I .Integer] , 

varlist = Rest® name; 

name = First© name; 

def =^ {" "1 , {"lambda" , varlist , def }> 

]; 

{{" ' " .{"lambda" , {name>, body}} .def >. 
"read-bit" I "read-exp" , 

{»>, 

"car" I "cdr" I "atom" I " * " I "display" I "eval" I "bits" 1 
"debug" I "length" I "size" I "base2-to-10" I "baselO-to-2" , 
tw.get[]>, 

"cons" I "=" I "lambda" I "append" I "define" I "+" | "-" | | "~" | "<" | ">" | "<=" | ">=" ^ 

{",get[] ,get[]}, 
" if " I " let " I " try " , {w , get [] , get [] , get □ } , 
_» w 
] 

] 

(* output S-exp *) 

output2 [x_String] := x<>" " 

output2[x_Integer] ToString[x]<>" " 

output2[{x }] := 

Block [ {s}, 

s = StringJoinC" C" , output2 /Q {x}] ; 

If[ StringTake[s,-l] == " ", s = StringDrop[s,-l] ]; 

s <> ") " 

] 

output [x_] := StringDropC output2Qx ,-1 ] 

blanks = StringJoinQ Table[" ",{12}] 

print [x_ , y_] : = Cprint2 [x , StringTake [y , 50] ] ; 

print["",StringDrop[y,50]]) /; StringLength [y] > 50 
print [x_.y_] := print2[x,y] 

print2 [x_ ,y_] : = print3 [StringTake [xOblanks , 12] <>y] 
print3[x_] := (Print [x] ; WriteString[o,x, "\n"] ) 

let[n_,d_] : = 

C 

print [ "define", outputQ n ]; 
print [ "value", outputQ d ]; 
PrependTo [names, n] ; 
PrependTo [def s , d] ; 

) 

run [f n_ , whoami_ , outputsuf f ix_] : = 

( 

inputbuffer = {}; 

names = {"nil"}; defs = {{}}; 

to = SessionTime[] ; 

= OpenWrite [fnOoutputsuf f ix] ; 

1 = OpenRead[fn<>" .1"] ; 

prints ["Start of "OwhoamiO" run of "<>fn<>".l"] ; 
prints© ""; 
CheckAbort [ 
While [True , 
Cprint3@ ""; 
Replace [#,{ 

{"define" , {func_ , vars } , def _} : > let [func .{"lambda" ,{vars},def }] , 

{"define" .var_ ,def _} : > let [var .evalQ def] . 
:> print[ "value", outputQ evalQ # ] 

H 

)& 9 get[] ; 
prints® "" 
], 
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]; 

print3i2 StringForm [ 
"Elapsed time seconds", 
Round [SessionTime [] -tO] 

]; 

Close® 1; 
Closes o 

) 

runall := run /Q {"examples" , "godel" , "univtm" , "godel2" , 
"omega" , "omega2" , "oraegaS" , "godel3"} 

$RecursionLimit = $IterationLimit = Infinity 
SetOptions [$Output , PageWidth->Inf inity] ; 
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/* lisp.c: high-speed LISP interpreter */ 

/• 

The storage required by this interpreter is 8 * 4 = 32 bytes times 

the symbolic constant SIZE, which is 32 * 1,000,000 = 

32 megabytes. To run this interpreter in small machines, 

reduce the #define SIZE 1000000 below. 

To compile , type 

cc -D -olisp lisp.c 
To run interactively, type 

lisp 

To run with output on screen, type 

lisp <test.l 
To run with output in file, type 

lisp <test , 1 >test,r 

Reference: Kernighan & Ritchie, 

The C Programming Language, Second Edition, 

Prentice-Hall , 1988 . 

*/ 

#include <stdio . h> 
#include <time . h> 

#define SIZE 1000000 /* numbers of nodes of tree storage */ 
#define nil /* end of list marker */ 

long car [SIZE], cdr[SI2E] ; /* tree storage */ 
short atom[SIZE]; /* is it an atom? */ 
short numb [SIZE] ; /* is it a number? */ 
/* The following is only used for atoms */ 
long vlst[SIZE]; /* bindings of each atom */ 

long pname[SIZE]; /* print name of each atom = list of characters in reverse */ 
/* The following is only used for atoms that are the names of primitive 
functions */ 

short pf_numb[SIZE] ; /* primitive function number (for interpreter switch) */ 
short pf _args [SIZE] ; /* number of arguments + 1 (for input parser) */ 

long obj_lst; /* list of all atoms C& every other token read except numbers) */ 

/* locations of atoms in tree storage */ 

long wrd_nil , wrd_true , wrd_f alse , wrd_def ine , wrd_let , wrd_lambda, wrd_quote , 

wrd_if ; 

long wrd_car , urd_cdr , wrd_cadr , wrd_caddr , wrd_eval , wrd_try ; 

long wrd_no_time_limit , wrd_out_of _time, wrd_out_of _data, wrd_success , 

wrd_f ailure; 

long left .bracket , right .bracket, lef t_paren, right _paren, double_quote ; 
long wrd_zero, wrd_one; 

long next =0; /* next free node */ 

long col = 0; /* column in each 50 character chunk of output 

(preceeded by 12 char prefix) */ 
time_t timel; /* clock at start of execution */ 
time_t time2; /* clock at end of execution */ 

long turingjiachine_tapes ; /* stack of binary data for try's */ 
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long display^enabled; /* stack of flags whether to capture displays or not */ 
long captured_displays ; /* stack of stubs to collect captured displays on */ 
long q; /* for converting s-expressions into lists of bits */ 
long buffer2; /* buffer for converting lists of bits into s-expressions */ 
/* contains list of all the words in an input record */ 

void initialize_atoms (void) ; /* initialize atoms */ 

long iiik_atomClong number, char *naine, long args) ; /* make an atom */ 

long mk_numbClong value); /* make an number */ 

long mk_stringCchar *p) ; /* make list of characters */ 

long eq_wrdClong x, long y) ; /* are two lists of characters equal ? */ 

long lookup_wordClong x) ; /* look up word in object list ? */ 

long cons (long x, long y) ; /* get free node & stuff x & y in it */ 

long outCchar *x, long y) ; /* output expression */ 

void out„lstClong x) ; /* output list */ 

void out_atmClong x) ; /* output atom */ 

void out_chrClong x) ; /* output character */ 

long in_word2Cvoid) ; /* read word */ 

long in_word(void) ; /* read word - skip comments */ 

long inClong mexp, long rparenokay) ; /* input m-exp */ 

long only_digits (long x) ; /* check if list of characters are exclusively digits 

•/ 

long evClong e) ; /* initialize and evaluate expression */ 

long evalClong e, long d) ; /* evaluate expression */ 

long evalstClong e, long d) ; /* evaluate list of expressions */ 

void clean_envCvoid) ; /* clean environment */ 

void restore^envCvoid) ; /* restore unclean environment */ 

/* bind values of arguments to formal parameters */ 

void bindClong vars, long args); 

long appendClong x, long y) ; /* append two lists */ 

long eqClong x, long y) ; /* equal predicate */ 

long lengthClong x) ; /* number of elements in list */ 

long compareClong x, long y) ; /* compare two decimal numbers */ 

long addlClong x) ; /* add 1 to decimal number */ 

long sublClong x); /* subtract 1 from decimal number */ 

long nmbClong x) ; /* pick-up decimal number from atom & convert non-number to 

zero */ 

long remove_leading_zeros (long x) ; /* from reversed list of digits of decimal 
number */ 

long additionClong x, long y, long carry_in) ; /* add two decimal numbers */ 
long multiplicationClong x, long y) ; /* multiply two decimal numbers */ 
long exponentiationClong base, long exponent); /* base raised to the power 
exponent */ 

long subtractionClong x, long y, long borrow_in) ; /* x - y assumes x >= y */ 

long base2_to,10Clong x) ; /* convert bit string to decimal number */ 

long halveClong x) ; /* used to convert decimal number to bit string */ 

long baselO_to_2Clong x) ; /* convert decimal number to bit string */ 

long sizeClong x) ; /* number of characters in print representation */ 

long read_bit (void) ; /* read one square of Turing machine tape */ 

void write_chrClong x) ; /* convert character into 8 bits */ 

void write_atmClong x) ; /* convert atom into 8 bits per character */ 

void write_lst (long x) ; /* convert s-exp into list of bits */ 

long read_recordCvoid) ; /* read record from Turing machine tape */ 

long read_ char (void) ; /* read one character from Turing machine tape */ 

long read_wordCvoid) ; /* read word from Turing machine tape */ 

long read_exprClong rparenokay); /* read s-exp from Turing machine tape */ 

mainC) /* lisp main program */ 

{ 

timel = time (NULL); /* start timer */ 
printi ("lisp . c\n\nLISP Interpreter Run\n") ; 
initialize_atoms() ; 

while (1) { 

long e , f , name , def ; 
printf C"\n") ; 

/* read lisp meta-expression, ) not okay */ 

e = in(l,0); 

printf ("\n") ; 

f = car[e] ; 

name = car[cdr[e]]; 

def = car [cdr [cdr [e] ] ] ; 

if (f wrd_define) { 

/* definition */ 

if (atom [name] ) { 



lisp.c 



111 



/* variable definition, e.g., define x ' (a b c) */ 

def = out ("expression" ,def) ; 

def = evCdef ) ; 
} /* end of variable definition */ 
else { 

/* function definition, e.g., define (F x y) cons x cons y nil */ 
long var_list = cdr[name] ; 
name = car [name] ; 

def = consCwrd_lambda, cons Cvaz'_list,consCdef, nil))) ; 

} /* end of function definition */ 

out ("def ine" .name) ; 

out ("value" ,def ) ; 

/* new binding replaces old */ 

car [vlst [name] ] = def; 

cont inue ; 
} /* end of definition */ 
/* write corresponding s-expression */ 
e = outC'expression" ,e) ; 
/* evaluate expression */ 
e = out ("value" ,evCe) ) ; 

} 

> 

void initialize_atoms (void) /* initialize atoms */ 

■C 

long i; 

if ( nil != mk_atom(0,"()",0) ) { 
printf("nil 0\n"); 
exit(O); /* terminate execution */ 

} 

wrd_nil = mk_atomCO , "nil" , 0) ; 

car [vlst [wrd_nil] ] = nil; /* so that value of nil is () */ 

wrd_true = mk_atom(0, "true" ,0) ; 

wrd_false = mk_atom(0, "false" ,0) ; 

wrd_no_time_limit = iDk_atom(0, "no-time-limit " ,0) ; 

wrd_out_of _time = mk_atom(0, "out-of-time" , 0) ; 

wrd_out_of _data = mk_atom(0 , "out -of -data" , 0) ; 

wrd_success = mk_atom(0 , "success" ,0) ; 

wrd_f ailure = mk_atom(0 , "failure" ,0) ; 

wrd_def ine = mk_atom(0, "define" ,3) ; 

wrd_let = mk_atom(0, "let" ,4) ; 

wrd_lambda = mk_atom(0, "lambda" ,3) ; 

wrd^cadr = mk_atom(0, "cadr" ,2) ; 

wrd_caddr = mk_atom(0, "caddr" ,2) ; 

wrd_quote = mk_atom(0, " ' " , 2) ; 

wrd_if = mk_atom(0,"if " ,4) ; 

wrd_car = mk_atom(l, "car" ,2) ; 

wrd_cdr = mk_atomC2, "cdr" ,2) ; 

i = mk_atom(3, "cons" ,3) ; 

i = mk_atom(4, "atom" ,2) ; 

i = mk_atom(5, "=" ,3) ; 

i = mk_atom(6, "display" , 2) ; 

i = mk_atomC7, "debug" ,2) ; 

i = mk_atomC8, "append" ,3) ; 

i = mk_atom(9, "length" ,2) ; 

i = mk_atom(10,"<",3); 

i = mk_atom(ll,">",3); 

i = mk_atom(12,"<=",3) ; 

i = mk_atom(13,">=",3) ; 

i = mk_atom(14, "+" ,3) ; 

i = mk_atom(15, "*" ,3) ; 

i = mk_atom(16, """ ,3) ; 

i = mk_atom(17, "-" ,3) ; 

i = mk_atom(18,"base2-to-10" ,2) ; 

i = mk_atom(19,"basel0-to-2",2); 

i = mk_atomC20, "size" ,2) ; 

i = mk_atom(21 , "read-bit ", 1) ; 

i = mk_atom(22, "bits",2) ; 

i = mk_atom(23, "read-exp" , 1) ; 

wrd_eval = mk_atom(0, "eval" ,2) ; 

wrd_try = mk_atom(0, "try" ,4) ; 

left_bracket = mk_atom(0, " [" , 0) ; 

right_bracket = mk_atom(0, "] " ,0) ; 

left_paren = mk_atom(0, " (" ,0) ; 

right_paren = mk_atom(0 , ") " ,0) ; 
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double_quote = mk_atom(0 , "\" " ,0) ; 

wrd_zero = nik_numbCnil) ; 

wrd_one = i]ik_iiuiiib(coiis( ' 1 ' .nil) ) ; 

} 

long mk_atomClong number, char *name, long args) /* make an atom */ 

i 

long a; 

a = consCnil,nil) ; /* get an empty node */ 

car [a] = cdr[a] = a; /* so that car ft cdr of atom = atom */ 
atom [a] = 1; 
numb [a] = 0; 

pname[a] = ink_stringCname) ; 
pf_numb[a] = number; 
pf_args[a] = args; 

/* initially each atom evaluates to self */ 
vlst [a] = cons(a,nil); 
/* put on object list */ 
obj_lst = consCa,obj_lst) ; 
return a; 

} 

long mk_numbClong value) /* make an number */ 

■C /* digits are in reverse order, and has empty list of digits */ 
long a; 

a = cons (nil , nil) ; /* get an empty node */ 

car [a] = cdr [a] = a; /* so that car ft cdr of atom = atom */ 
atom [a] = 1; 
numb [a] = 1 ; 

pname[a] = value; /* must make 00099 into 99 and 000 into empty list of digits 

•/ 

/* if necessary before calling this routine (to avoid removing leading zeros 
unnecessarily) */ 
pf_numb[a] = 0; 
pf_args[a] = 0; 
vlst [a] = 0; 

/* do not put on object list ! */ 
return a; 

} 

long mk_stringCchar *p) /* make list of characters */ 
{ /* in reverse order */ 

long V = nil; 

while (*p != '\0O 

V = consC*p++,v) ; 

return v; 

} 

long cons (long x, long y) /* get free node & stuff x ft y in it */ 
i 

long z; 

/* if y is not a list, then cons is x */ 
if ( y != nil && atom[y] ) return x; 

if (next SIZE) { 
printf ( "Storage overflow ! \n" ) ; 
exit(O); 

} 

z = next++; 
car[z] = x; 
cdr[z] = y; 
atomEz] = 0; 
numb[z] = 0; 
pname[z] = 0; 
pf_numb[z] = 0; 
pf_args[z] = 0; 
vlst[z] = 0; 

return z; 

} 

long out (char *x, long y) /* output expression */ 

< 
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printf ("•/.-12s",3c) ; 

col = 0; /* so can insert \n ajid 12 blanks 

every 50 characters of output */ 

out_lstCy) ; 
printf C"\n") ; 
retmm y; 



void out_lstClong x) /* output list */ 

{ 

if CnumbLx] && pname [x] == nil) {out_chrC*0') ; return;} /* null list of 
digits means zero */ 

if (atom [x] ) {out _atm (pname [x] ) ; return;} 
out_clir( ' (') ; 
while C ! atom [x] ) { 
out_lst(car [x] ) ; 
X = cdr [x] ; 

if C!atoni[x]) out_chr(' '); 

} 

out_chrC')'); 

} 

void out_atmClong x) /* output atom */ 

{ 

if (x nil) return; 

out_atm(cdr£x] ) ; /* output characters in reverse order */ 
out_chr(car"[x] ) ; 



void out_chrClong x) /* output character */ 

{ 

if (col++ == 60) ■Cprintf("\ii7.-12s"," ")i col = 1;> 
putchaxCx) ; 

} 

long eq_wrdClong x, long y) /* are two lists of characters equal ? */ 

{ 

if (x == nil) return y == nil; 
if (y == nil) return 0; 
if CcarCx] != car[y]) return 0; 
return eq_wrdCcdr[x] ,cdr[y] ) ; 

} 

long lookup _wordClong x) /* is word in object list ? */ 

{ 

long i = obj_lst; 
while C ! atom[i] ) { 

/* if word is already in object list, don't make a new atom */ 

if (eq_wrd (pname [car [i] ] ,x) ) return car [i] ; 

i - cdr [i] ; 

} 

/* if word isn't in object list, make new atom & add it to object list */ 
i = mk_atom(0, "" ,0) ; /* adds word to object list */ 
pname [i] = x; 
return i; 



long in_word2 (void) { /* read word */ 

static long buffer = nil; /* buffer with all the words in a line of input 
long character , word, line , end_of _line , end_of _buf f er ; 
while C buffer == nil ) { /* read in a line */ 
line = end_of_line = cons(nil,nil) ; /* stub */ 
do { /* read characters until '\n' */ 
character = getcharC); 
if (character == EOF) ■[ 
time2 = time (NULL); 
printf C 

"End of LISP Run\n\nElapsed time is °/,.0f seconds. \n", 

dif f time Ctime2, timel) 
/* on some systems, above line should instead be: */ 
/* time2 - timel */ 

); 

exit(O); /* terminate execution */ 
} /* end of if (character == EOF) */ 
putchar (character) ; 
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/* add character to end of line */ 

end_of_line = cdr [end_of .line] - consCcharacter,nil) ; 
} /* end of read characters until '\n' */ 
while (character •= '\n') ; 

line = cdr[line]; /* remove stub at beginning of line */ 
/* break line into words at ()[]'" characters */ 
buffer = end_of _buf f er = consCnil,nil) ; /* stub */ 
word = nil; 

while C line != nil ) { 
character = car [line]; 
line = cdr[line] ; 

/* look for characters that break words */ 
if C character ' ' | | character == '\n' I I 

character ' ( ' I I character ' ) ' II 

character ' [' I I character '] ' | | 

character ~ '\' ' \ \ character == '\"' ) 
{ /* add nonempty word to end of buffer */ 
if C word != nil ) 

end_of _buf f er = cdr [end_of _buf f er] = cons (word, nil) ; 
word - nil; 

/* add break character to end of buffer */ 
if C character != ' ' && character •= '\n' ) 

end_of _buf f er = cdr[end_of_buffer] = consCcons(character,nil) ,nil) ; 

} 

else 

{ /* add character to word (in reverse order) */ 
/* keep only nonblank printable ASCII codes */ 
if (32 < character && character < 127) 
word = cons(character,word) ; 

} 

} /* end while ( line •= nil ) */ 

buffer = cdr [buffer] ; /* remove stub at beginning of buffer */ 
y /* end of do while ( buffer == nil ) */ 
/* if buffer nonempty, return first word in buffer */ 
word = car [buffer]; 
buffer = cdr [buffer]; 

/* first check if word consists only of digits */ 

if Conly_digits (word) ) word = mk_numb(remove_leading_zeros(word)) ; 

/* also makes 00099 into 99 and 0000 into null */ 

else word = lookup_word(word) ; /* look up word in object list */ 

/* also does mk_atom and adds it to object list if necessary */ 

retum word; 



long only_digits(long x) /* check if list of characters are exclusively digits 

*/ 
{ 

while (x != nil) { 

long digit = car[x] ; 

if (digit < '0' II digit > '9') return 0; 
X = cdr [x] ; 

} 

retum 1 ; 



long in_ word (void) /* read word - skip comments */ 
{ 

long w; 
while (1) { 

w = in_word2() ; 

if (w != lef t_bracket) return w; 

while (in_word() != right_bracket) ; /* comments may be nested */ 

} 

> 

long indong mexp, long rparenokay) /* input m-exp */ 

{ 

long w = in_word() , first, last, next, name, def, body, var_lst, i ; 
if (w right.paren) if (rparenokay) retum w; else retum nil; 
if (w == left_paren) { /* explicit list */ 

first = last = cons(nil,nil) ; 

while ((next = in(mexp,l)) != right _paren) 
last = cdr[last] = cons(next ,nil) ; 

return cdr[first]; 
y /* end if (w == lGft_paren) */ 
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if (Imexp) return w; /* atom */ 

if (w == double_quote) return in(0,0); /* s-exp */ 
if (w == wrd_cadr) /* expand cadr */ 
return 

cons Cwrd_car , 
cons (cons (wrd_cdr , 
consCinCl.O) , 

nil)), 
nil)); 

if Cw == wrd_caddr) /* expand caddr */ 
return 

cons(wrd_car, 
cons (cons Cwrd_cdr , 

cons (cons Cwrd_cdr , 
consCinCl.O) , 

nil)), 
nil)), 
nil)); 

if (w == wrd_let) { /* expand let name def body */ 
name = inCl.O) ; 
def = inCl.O); 
body = inCl,0) ; 

if (! atom [name] ) { /* let (name var_lst) def body */ 
var_lst = cdr[name] ; 
name = car [name] ; 
def = cons(wrd_quote, 

cons (cons Cwrd_lambda, 
cons(var_lst, 
cons (def , 

nil))), 
nil)); 

} /* end if (! atom [name] ) */ 
return /* let name def body */ 
cons (cons (wrd_quote , 

cons (cons (wrd_lambda, 
cons (cons (name , 
nil) , 

cons (body , 

nil))), 
nil)), 

cons (def , 

nil)); 

} /* end if (w == wrd_let) */ 

i - pf _args [w] ; 

if (i 0) return w; /* normal atom */ 

/* atom is a primitive function with i-1 arguments */ 

first = last = consCw,nil); 

while C~i > 0) 

last = cdr[last] = consCinCl,0) ,nil) ; 
return first; 



long evClong e) /* initialize and evaluate expression */ 

{ 

long stub, v; 

turing_machine_tapes = cons (nil , nil) ; 
display .enabled = cons(l,nil); 
captured_displays = consCnil,nil) ; 
V = evalCe,wrd_no_time_limit) ; 
return (v < ? -v : v) ; 

> 

long evalClong e, long d) /* evaluate expression */ 

{ 

/• 

e is expression to be evaluated 

d is permitted depth - decimal integer, or wrd_no_time_limit 

*/ 

long f, V, args, x, y, z, vars, body, var; 
if (numb [e] ) return e ; 

/* find current binding of atomic expression */ 
if (atom [e] ) return car [vlst [e] ] ; 



f = eval(car[e] ,d) ; /* evaluate function */ 
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e = cdr[e]; /* remove function from list of arguments */ 
if Cf < 0) return f; /* function = error value? */ 

if Cf == wrd_quote) return car[e] ; /* quote */ 

if (f == wrd^if) { /* if then else */ 
V = eval (car [e] ,d) ; 
e = cdr [e] ; 

if Cv < 0) return v; /* error? */ 
if (v == wrd_false) e = cdr[e] ; 
return eval (car [e] ,d) ; 

} 

args = evalstCe,d); /* evaluate list of arguments */ 
if Cargs < 0) return args; /* error? */ 

X = car [args]; /* pick up first argument */ 

y = car [cdr [args] ] ; /* pick up second argument */ 

z = car [cdr [cdr [args] ]] ; /* pick up third argument */ 

switch Cpf _numb [f ] ) ■[ 
case 1: return carCx] ; 
case 2: return cdr[x] ; 
case 3: return cons(x,y) ; 

case 4 : return (atom [x] ? wrd_true : wrd_f alse) ; 
case 5: return CeqCx,y) ? wrd_true : urd_f alse) ; 
case 6: if (car [display_enabled] ) return outC'display" ,x) ; 
else {long stub, old_end, neu_end; 

stub = car [captured_displays] ; 

old_end = car [stub]; 

new_end = cons(x,nil); 

cdr[old_end] = new_end; 

car [stub] = new_end; 

return x;} 
case 7: return out("debuig",x) ; 

case 8: return appendCCatom[x] ?nil: x) , Catom[y] ?nil :y) ) ; 
case 9: return rak_numb(length(x)) ; 

case 10: return (compareCnmbCx) ,nmbCy)) '<' ? urd_true : wrd_false) ; 
case 11: return (compare Cnmb(x) ,nmb(y)) == '>' ? wrd_true : wrd_false) ; 
case 12: retum Ccompare(nmb(x) ,nmb(y)) != '>' ? wrd_true : wrd_f alse) ; /* <= 

*/ 

case 13: return (compare(nmb(x) ,nmb(y)) != '<* ? wrd_true : wrd_false) ; /* >= 

*/ 

case 14: return mk_numb(addition(nmb(x) ,nmb(y) ,0)) ; /* no carry in initially 
*/ 

case 15: return mk_numb(multiplication(nmb(x) ,nmb(y))) ; 
case 16: retum mk_numb(exponentiation(nmb(x) ,nmb(y))) ; 

case 17: if CcompareCnmb(x) ,nmb(y) ) != '>') retum mk_numbCnil) ; /* y too big 
to subtract from x */ 
else retum 

mk_numbCremove_leading_zeros (subtract ion (nmb(x) ,nmbCy) , 0) ) ) ; 

/* no borrow 

in initially */ 

case 18: retum mk_numbCbase2_to_10(x)) ; /* convert bit string to decimal 
number */ 

case 19: retum baselO_to_2Cnmb(x)) ; /* convert decimal number to bit string 

*/ 

case 20: retum mk_numbCsizeCx) ) ; /* size of print representation of x */ 
case 21: retum read_bitC); /* read one square of Turing machine tape */ 

/* convert s-exp to list of bits */ 
case 22: {v = q = cons(nil,nil) ; write_lst (x) ; write_chr( '\n' ) ; return 
cdr [v] ; } 

/* read lisp s-expression from Turing machine tape, 8 bits per char 

*/ 

case 23: {v = read_record() ; if (v < 0) retum v; return read_expr(0) ;} 
} /* end switch Cpf_numb[f]) */ 



if (d != wrd_no_time_limit) { 

if (d == nil) return - wrd_out_of .time; /* depth exceeded -> error! */ 
d = subl(d); /* decrement depth */ 

} 



if (f == wrd.eval) { 

clean_envC); /* clean environment */ 
V = eval(x,d) ; 
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restore_envC) ; /* restore uncleaa environment */ 
return v; 

} 

if Cf == wrd.try) { 

long stub, old„try_has_smaller_time_limit = 0; /* assume normal case, that 
X < d */ 

if (x != wrd_no_time_limit) x = ninb(x) ; /* convert s-exp into number */ 
if (x == wrd_no_tinie_limit II Cd != wrd_no_time_limit kk compareCx,d) ! = 

'<')) { 

old_try_has_ smaller _time_limit = 1 ; 

X = d; /* continue to use older more constraining time limit */ 

> 

turing_machine_ tapes = consCz,turing_machine_tapes) ; 

display. enabled = cons(0,display_enabled) ; 

stub = cons(0,nil); /* stub to grow list on */ 

car [stub] = stub; /* car of stub gives end of list */ 

captured_di splays = consCstub,captured_displays) ; 

clean_envC) ; 

V = evalCy,x) ; 

restore_envC) ; 

turing jiachine_tapes = cdr [turing_machine_tapes] ; 
display. enabled = cdr [display. enabled] ; 

stub = cdr [car [captured_displays] ] ; /* remove stub */ 
captured^displays = cdr [captured_displays] ; 

if (old_try_has_ smaller. time .limit && v == - wrd. out. of .time) return v; 
if (v < 0) return consCwrd.f ailure , cons C-v, consCstub, nil) )) ; 
return consCwrd.success,consCv,consCstub,nil))) ; 



f = cdr[f]; 
vars = car [f ] ; 
f = cdr[f] ; 
body = car [f ] ; 

bindCvars,args) ; 

V = evalCbody,d) ; 

/* unbind */ 

vhile C ! atom [vars] ) ■[ 

var = car [vars] ; 

if (atom [var] ) 

vlst[var] = cdr[vlst[var]] ; 

vars = cdr [vars]; 



return v; 

> 

void clean. env (void) /* clean environment */ 

{ 

long o = obj.lst, var; 
vhile (o != nil) ■[ 
var = car[o] ; 

vlst [var] = consCvar,vlst[var] ) ; /* everything eval's to self */ 
o = cdr [o] ; 

} 

car[vlst[wrd nil]] = nil; /* except that value of nil is () */ 

> 

void restore_envCvoid) /* restore unclean environment */ 

{ 

long o = obj.lst, var; 
vhile (o != nil) ■[ 
var = car [o] ; 

if (cdr [vlst [var]] •= nil) /* vas token read in by read-exp within a try 

*/ 

vlst [var] = cdr [vlst [var] ] ; 
o = cdr [o] ; 

> 

} 

/* bind values of arguments to formal parameters */ 
void bindClong vars, long args) 
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{ 

long var; 

if CatomCvars] ) return; 
bindCcdr [vars] , cdr [args] ) ; 
var = car [vars] ; 
if (atom [var]) 

vlst [var] = cons (car [args] ,vlst [var] ) ; 

} 

long evalstClong e, long d) /* evaluate list of e3q)ressions */ 
{ 

long X, y; 

if (e == nil) return nil; 

X = evalCcar[e] ,d) ; 

if (x < 0) return x; /* error? */ 

y = evalstCcdr[e] ,d) ; 

if Cy < 0) return y; /* error? */ 

return consCx.y); 

> 

long appendClong x, long y) /* append two lists */ 

< 

if Cx == nil) retum y; 

return consCcar[x] , append C cdr [x] ,y)); 

} 

long eqClong x, long y) /* equal predicate */ 
i 

if (x == y) return 1; 

if (numb [x] && numb [y] ) return eq_wrdCpname [x] ,pnaiiie [y] ) ; 

if CnumbEx] I I numbLy]) return 0; 

if CatomEx] I I atoni[y]) return 0; 

if (eqCcar [x] ,car [y] ) ) retum eqCcdr [x] ,cdr [y] ) ; 

return 0; 

} 

long lengthClong x) /* number of elements in list */ 
i 

if CatomLxj) return nil; /* is zero */ 
return addl (lengthCcdr [x] ) ) ; 

> 

long compareClong x, long y) /* compare two decimal numbers */ 

{ 

long already_decided , digit 1 , digit2; 

if (x nil && y == nil) return '='; 

if (x == nil && y != nil) return '<'; 

if Cx •= nil ftft y == nil) retum '>' ; 

already .decided = compare ( cdr [x] ,cdr[y]) ; 

if (already .decided ! = ' = ' ) retum already_decided ; 

digit 1 = car[x] ; 

digit2 = car[y] ; 

if (digit 1 == digit2) retum ' = '; 
if (digit 1 < digit2) retum '<'; 
if (digit 1 > digit2) retum '>'; 

} 

long addl (long x) /* add 1 to decimal number */ 

{ 

long digit; 

if (x == nil) retum consCl' ,nil) ; 
digit = car [x] ; 

if (digit ! = ' 9 ' ) retum cons (digit+1 , cdr [x] ) ; 
return cons( '0' ,addl (cdr [x] )) ; 

} 

long subldong x) /* subtract 1 from decimal number */ 

i 

long digit ; 

if (x == nil) return x; /* - 1 = */ 
digit = car [x] ; 

if (digit == '1' && cdr[x] == nil) retum nil; /* 1 - 1 = */ 
if (digit ! = ' ' ) retum cons (digit-1 , cdr [x] ) ; 
return cons( '9' ,subl (cdr [x] )) ; 

} 
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long nmbClong x) /* pick-up decimal nunLber from atom ft convert non-number to 
zero */ 

{ 

if (numb [x] ) return pname [x] ; 
return nil; 

} 

long remove_leading_zeros (long x) /* from reversed list of digits of decimal 
number */ 

{ 

long rest, digit; 

if (x == nil) return nil; 

digit = car [x] ; 

rest = remove_leading_zeros(cdr [x] ) ; 

if Crest == nil ft& digit == '0') return nil; 

return cons (digit , rest) ; 

> 

long additiondong x, long y, long carry_in) 
{ 

long sum, digitl, digit2, restl, rest2; 

if (x == nil && !carry_in) return y; 

if (y == nil && ! carry, in) return x; 

if (x != nil) {digitl = car [x] ; restl = cdr[x];> 

else {digitl = '0'; restl = nil;} 
if (y != nil) {digit2 = car[y] ; rest2 = cdr[y];} 

else {digit2 = '0'; rest2 - nil;} 
sum = digitl + digit2 + carry_in - '0'; 

if (sum <= '9' ) return cons (sum, addition (restl ,rest2 ,0) ) ; 
return cons (sum- 10 , addition (restl ,rest2 , 1) ) ; 



long subtractiondong x, long y, long borrow_in) /* x - y assumes x >= y */ 

{ 

long difference , digitl , digit2 , restl , rest 2 ; 

if (y == nil && !borrow_in) return x; 

if (x != nil) {digitl = car [x] ; restl = cdr[x];} 

else {digitl = '0'; restl = nil;} 
if (y != nil) ■[digit2 = car[y] ; rest2 = cdr[y];} 

else ■[digit2 = '0'; rest2 = nil;} 
difference = digitl - digit2 - borrow_in + '0'; 

if (difference ' 0' ) return cons (difference , subtraction (restl , rest 2, 0) ) ; 
return cons (dif f erence+10 , subtraction (restl ,rest2 , 1) ) ; 



long multiplicationdong x, long y) /* goes faster if x is small */ 

{ 

long sum = nil; 

if Cy == nil) return nil; /* otherwise produces result 0000 */ 

while (x nil) { 

long digit = car[x] ; 

while (digit — > '0') sum = addition(sum,y,0) ; 
X = cdr[x] ; 

y = cons('0',y); /* these are where bad decimal numbers are generated if 
y is zero */ 

> 

return sum; 

} 

long exponentiationdong base, long exponent) 

{ 

long product = cons ( ' 1 ' ,nil) ; 
while (exponent != nil) { 

product = multiplication(base, product) ; /* multiply faster if smaller 
comes first */ 

exponent = subl (exponent) ; 

> 

return product; 

} 

long base2_to_10(long x) /* convert bit string to decimal number */ 

{ 

long result = nil; 
while ( ! atom[x] ) { 
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long next_bit = car[x]; 
X = cdr[x] ; 

if C ! numb [next _bit] I I pname [next_bit] != nil) next_bit = 1; else 
next_bit = 0; 

result = additionCresult, result, next_bit) ; 

> 

return result; 



long halve (long x) /* used to convert decimal number to bit string */ 

-c 

long digit , next_digit , rest , halve_digit ; 
if (x — nil) return x; /* half of is */ 
digit = car [x] - '0'; 
X = cdr [x] ; 
rest = halve(x); 

if (x == nil) next_digit = 0; else next_digit = car[x] - *0*; 
next_digit = next_digit5l2 ; /* remainder when divided by 2 */ 
halve.digit = '0' + Cdigit/2) + C5*next_digit) ; 

if Clialve_digit != '0' II rest != nil) return consChalve_digit,rest) ; 
return nil; 

> 

long baselO_to_2Clong x) /* convert decimal number to bit string */ 

{ 

long bits = nil; 
uhile (x != nil) { 

long digit = car [x] - '0'; 

bits = cons C (digit yi2 ? wrd_one : wrd_zero) ,bits) ; 
X = halve (x) ; 

y 

retum bits; 



long sizeClong x) /* number of characters in print representation */ 

{ 

long sum = nil; 

if (numb[x] && pname [x] nil) return addlCnil) ; /* number zero */ 
if (atom[x] ) return length (pname [x] ) ; 
while (!atom[x]) { 

sum = addition(sum,size(car [x] ) , 0) ; 

X = cdr [x] ; 

if (!atom[x]) sum = addl(sum); /* blank separator */ 

> 

retum addl(addl(sum)) ; /* open & close paren */ 

} 

/* read one square of Turing machine tape */ 

long read_bit (void) 

{ 

long X, tape = car [turing_machine_tapes] ; 

if (atom[tape]) return - wrd_out_of _data; /* tape finished ! */ 
X = car [tape] ; 

car [turing_machine_tapes] = cdr [tape] ; 

if (!numb[x] I I pname [x] != nil) return wrd_one; 

return wrd_zero; 

} 



void write_chr (long x) /* convert character to list of 8 bits */ 
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wrd 


zero 


), 


nil) 


q 




cdr [q] 




cons ( 


X 


& 


16 




wrd. 


one 


wrd 


zero 


), 


nil) 


q 




cdr [q] 




cons ( 


X 


ft 


8 


7 


wrd. 


one 


wrd. 


zero 


), 


nil) 


q 




cdr [q] 




cons( 


X 


ft 


4 


7 


wrd. 


one 


wrd. 


zero 


), 


nil) 


q 




cdr [q] 




cons( 


X 


ft 


2 


7 


wrd. 


one 


wrd. 


zero 


), 


nil) 


q 




cdr [q] 




cons( 


X 


ft 


1 


7 


wrd. 


one 


wrd. 


zero 


), 


nil) 



void write_lst(long x) /* convert s-exp to list of bits */ 
i 

if (numb[x] && pname[x] == nil) {write_chr ( '0' ) ; return;} /* null list of 
digits meeins zero */ 

if (atom[x] ) {write_atm (pname [x] ) ; return; } 



lisp.c 



write_chr CO; 
while C ! atom [x] ) { 

write_lst(cax[x] ) ; 

X = cdr[x] ; 

if C!atoni[x]) write.chrC 

} 

write_chrC') ') ; 



void write_atmClong x) /* convert atom to 8 bits per character */ 

{ 

if (x nil) return; 

write_atm(cdr[x] ) ; /* output characters in reverse order */ 
write_chr(car [x] ) ; 



/* read one character from Turing machine tape */ 
long read_ char (void) 

long c, b, i = 8; 
c = 0; 

while Ci~ > 0) { 
b = read_bit C) ; 

if (b < 0) return b; /* error? */ 

if Cpname [b] != nil) b = 1; else b = 0; 

c = c + c + b; 

> 

return c; 



long read_recordCvoid) /* read record from Turing machine tape */ 
■[ /* fill buffer2 with all the words in an input record */ 

long character , word , line , end_of _line , end_of _buf f er ; 

line = end_of_line = consCnil,nil) ; /* stub */ 

do "C /* read characters until '\n' */ 
character = read_charC); 

if (character < 0) return character; /* error? */; 
/* add character to end of line */ 

end_of_line = cdr [end_of _line] = consCcharacter.nil) ; 
} /* end of read characters until '\n' */ 
while (character •= '\n') ; 

line = cdr [line] ; /* remove stub at beginning of line */ 
/* break line into words at ( ) characters */ 
buffer2 = end^of _buf f er = consCnil,nil) ; /* stub */ 
word = nil; 

while ( line != nil ) { 
character = car [line] ; 
line = cdr [line] ; 

/* look for characters that break words */ 
if ( character == ' ' | | character == '\n' I I 

character ' ( ' | | character ' ) ' ) 
{ /* add nonempty word to end of buffer */ 
if ( word != nil ) 

end_of _buf f er = cdr[end_of_buf f er] = cons (word, nil) ; 
word = nil; 

/* add break character to end of buffer */ 
if ( character != ' ' && character != '\n' ) 

end_of _buf f er = cdr[end_of_buff er] = cons(cons(character,nil) ,nil) ; 

> 

else 

{ /* add character to word (in reverse order) */ 
/* keep only nonblank printable ASCII codes */ 
if (32 < character character < 127) 
word = cons(character,word) ; 

} 

} /* end while ( line != nil ) */ 

buffer2 = cdr [buff er2] ; /* remove stub at beginning of buffer */ 



long read_word(void) { /* read word from Turing machine tape */ 
/* buffer2 has all the words in the input record */ 
long word; 

/* (if buffer empty, returns as many right parens as needed) */ 

if (buffer2 == nil) return right_paren; 

/* if buffer nonempty, return first word in buffer */ 
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word = car [buff er2] ; 
buffer2 = cdr [buf f er2] ; 

/* first check if word consists only of digits */ 

if Conly_digitsCword)) word = nik_nunibCreniove_leading_zerosCword)) ; 

/* also makes 00099 into 99 and 0000 into null */ 

else word = lookup_wordCword) ; /* look up word in object list */ 

/* also does ink_atoiii and adds it to object list if necessary */ 

return word; 



long read_exprClong rparenokay) /* read s-exp from Turing machine tape */ 

{ 

long w = read_wordC), first, last, next; 
if (w < 0) return w; /* error? */ 

if (w == right_paren) if (rparenokay) return w; else return nil; 
if (w == left_paren) { /* explicit list */ 
first = last = consCnil,nil) ; 

while ((next = read_exprCl)) != right_paren) { 
if (next < 0) retum next; /* error? */ 
last = cdr [last] = consCnext,nil) ; 

> 

return cdr [first]; 
} /* end if (w == left_paren) */ 
retum w; /* normal atom */ 



examples. 1 



[ test new lisp ] 
' Cab c d) 

' Cab cd ) 

car ' Caa bb cc) 

cdr ' Caa bb cc) 

cadr ' Caa bb cc) 

caddr ' Caa bb cc) 

cons 'Caa bb cc) ' Cdd ee ff) 

car aa 

cdr aa 

cons aa bb 

C'cons aa) 

C'cons ' Caa) ' Cbb) ' Ccc)) 
let X a X 

X 

atom * aa 
atom * Caa) 
if true X y 
if false X y 
if XXX X y 

let Cf x) if atom display x x Cf car x) 
Cf 'CCCa)b)c)) 

f 

let Ccat X y) if atom x y cons car x Ccat cdr x y) 
Ccat ' Ca b c) ' Cd e f)) 

cat 

define Ccat x y) if atom x y cons car x Ccat cdr x y) 
cat 

Ccat 'Ca b c) ' Cd e f)) 
define x cadr ' Ca b c) 

X 

define x caddr ' Ca b c) 

X 

length display 
bits ' a 
length display 
bits ' abc 
nil 

length display 

bits nil 

length display 

bits ' Ca) 

size abc 

size ' C a b c ) 

length ' C a b c ) 

+ abc 15 

+ 'Cabc) 15 

+ 10 15 

- 10 15 

- 15 10 
* 10 15 

- 10 15 

< 10 15 

< 10 10 

> 10 15 

> 10 10 
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<- 10 15 
<- 10 10 
>= 10 16 
>= 10 10 
= 10 IB 
= 10 10 

let (fx) if = 3C 1 * display x Cf - x 1) 
Ci 6) 

let (1 x) if = X 1 * X (f - X 1) 

Cf 100) 
try 

'let (fx) if = X 1 * display x Cf - x 1) 
f 5) 

nil 
try 1 

fx) if = X 1 * display x Cf - x 1) 
f B) 



nil 
try 2 
'let 

nil 
try 3 
'let 

nil 
try 4 
'let 

nil 
try B 
'let 

nil 
try 6 
'let 

nil 
try 7 
'let 



'CI 
try 7 
'let 



■CI 
try 7 
'let 



fx) if = X 1 * display x Cf - x 1) 

f 5) 



fx) if = X 1 * display x Cf - x 1) 
f B) 



fx) if = X 1 * display x Cf - x 1) 
f B) 



fx) if = X 1 * display x Cf - x 1) 
f B) 



fx) if = X 1 * display x Cf - x 1) 
f 5) 



fx) if = X 1 * display x Cf - x 1) 
f B) 

nil 

try no-time-limit 

'let Cf x) if = X 1 * display x Cf - x 1) 

f 5) 
nil 

eval display '+ 5 15 
try 6 

'let Cf x) if = X nil 

cons * 2 display read-bit Cf - x 1) 

f 5) 
10 1) 



fx) if = X nil 

cons * 2 display read-bit Cf - x 1) 

f 5) 
10 1) 



fx) if = X nil 

cons * 2 display read-bit Cf - x 1) 

f 5) 
■CI 1) 

try no-time-limit 

f x) if = X nil 

cons * 2 display read-bit Cf - x 1) 

f 5) 
'CI 1) 
try 18 

'let Cf x) if = X nil 

cons * 2 display read-bit (f - x 1) 

:f 16) 

bits 'a 

baselO-to-2 128 
baselO-to-2 256 
baselO-to-2 257 
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base2-to-10 "(1111) 
base2-to-10 '(10000) 
base2-to-10 '(10001) 
try 20 

'cons abcdef try 10 

'let (f n) (f display + n 1) (f 0) [infinite loop] 

nil nil 
try 10 

'cons abcdef try 20 

'let Cf n) (f display + n 1) (f 0) [infinite loop] 
nil nil 

try no-time-limit 
'cons abcdef try 20 

'let (f n) (f display + n 1) (f 0) [infinite loop] 

nil nil 
try 10 

'cons abcdef try no-time-limit 

'let Cf n) (f display + n 1) (f 0) [infinite loop] 

nil nil 

read-bit 

read-exp 

bits ' Cabc def ) 

try no-time-limit 'read-exp bits 'Cabc def) 
bits *abc 



' (abc 



try 
try 
try 
try 
try 
try 
try 
try 
try 
try 
try 
try 
try 
try 



(def ghi) j) 

read-bit nil 

read-exp nil 

read-exp bits 



'abc 



■■ 0003 3 
000099 



cons read-exp cons read-bit nil bits 'abc 
cons read-exp cons read-bit nil append bits *abc '(0) 
cons read-exp cons read-bit nil append bits *abc *(1) 
read-exp bits ' (a b) 

cons read-exp cons read-bit nil bits ' (a b) 

cons read-exp cons read-exp nil bits ' (a b) 

read-exp bits 'CabcCdef ghi)j) 

read-exp ' Cl 1 1 1) [character is incomplete] 

read-exp '(00001010) [nothing in record; only \n] 

cons read-exp cons read-exp nil append bits '(abc) bits '(def) 

read-exp '(1111 1111 0000 1010) [invalid character] 



let 99 45 99 
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godel.l 



[[[ Show that a formal system of lisp complexity H_lisp (FAS) = N 
cannot enable us to exhibit an elegant S-expression of 
size greater than N + 419. 

An elegcint lisp expression is one with the property that no 
smaller S-expression has the same value. 

Setting: formal axiomatic system is never-ending lisp expression 
that displays elegant S-expr ess ions. 



[ Idea is to have a program P search for something X that can be proved 
to be more complex than P is, ajid therefore P can never find X. 
I.e., idea is to show that if this program halts we get a contradiction, 
and therefore the program doesn't halt. ] 

define (size-it-and-run-it exp) 

cadr cons display size display exp 



C size-it-and-run-it ' 

+ 5 15 

) 

C size-it-and-run-it ' 

[ Examine list x for element that is more than n characters in size. ] 
[ If not found returns false. ] 
let (examine x n) 

if atom X false 

if < n size car x car x 

(examine cdr x n) 

[ Here we are given the formal axiomatic system FAS. ] 
let fas 'display " 10 439 [insert FAS here proceeded by '] 

[ n = the number of characters in program including the FAS. ] 
let n display + 419 size display fas [ n = 419 + I FAS I ] 

[ Loop running the formal axiomatic system ] 
let (loop t) 

let v display try display t fas nil [Run the formal system for t time steps.] 
let s (examine caddr v n) [Did it output an elegant s-exp larger than this 
program?] 

if s eval s [If found elegant s-exp bigger than this program, 



]]] 



cons eval exp 
nil 




(loop 0) 



[Start loop running with t = 0.] 



) [end size-it-and-run-it] 
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[univtm. 1] 
[[[ 

First steps with my new construction for 
a self -delimiting universal Turing machine. 
We show that 

HCx.y) <= HCx) + HCy) + c 
and determine c. 

Consider a bit string x of length |x|. 
We also show that 

HCx) <= 2|x| + c 
and that 

HCx) |x| + HCthe binary string for |x|) + c 
and determine both these c's. 
]]] 

[first demo the new lisp primitive functions] 
append '(123456789 0) 'Cabcdefghi) 
read-bit 

try 'read-bit nil 
try 'read-bit ' (1) 
try 'read-bit ' (0) 
try ' read-bit ' Cx) 

try 'cons cons read-bit nil cons cons read-bit nil nil *(1 0) 
try 'cons cons display read-bit nil cons cons display read-bit nil nil ' Cl 0) 
try 'cons cons display read-bit nil cons cons display read-bit nil cons cons 
display read-bit nil nil 
'(1 0) 

try 'read-exp display bits a 

try 'read-exp display bits b 

try 'read-exp display bits c 

try 'read-exp display bits d 

try 'read-exp display bits e 

try 'read-exp bits ' (aa bb cc dd ee) 

try 'read-exp bits '(12 (3 4) 56) 

try 'cons read-exp cons read-exp nil 

append bits ' (abc def) bits ' (ghi jkl) 

[ 

Here is the self-delimiting universal Turing machine! 
(with slightly funny handling of out-of-tape condition) 

] 

define (U p) cadr try no-time-limit 'eval read-exp p 

[ 

The length of this bit string is the 
constant c in H(x) <= 2|x| + 2 + c. 

] 

length bits ' 
let (loop) let X read-bit 
let y read-bit 
if = X y 

cons X (loop) 
nil 

(loop) 
(U 

append 
bits 

'let (loop) let X read-bit let y read-bit if = x y cons x (loop) nil 
(loop) 



129 



130 



The Limits of Mathematics 



'(0 01100110 1) 

) 

(U 

append 

bits 

'let (loop) let X read-bit let y read-bit if = x y cons x (loop) nil 
(loop) 

'(0 01100110 0) 

) 
[ 

The length of this bit string is the 
constant c in H(x,y) <= H(x) + H(y) + c. 

] 

length bits ' 
cons eval read-exp 
cons eval read-exp 
nil 

(U 

append 

bits 'cons eval read-exp cons eval read-exp nil 
append 

bits 'let (f) let x read-bit let y read-bit if = x y cons x (f) nil (f) 
append 

'(0 01100110 1) 
append 

bits 'let Cf) let x read-bit let y read-bit if = x y cons x (f) nil (f) 
'(1 10011000 1) 

) 
[ 

The length of this bit string is the 
constant c in H(x) <= |x| + H(|x|) + c 

] 

length bits ' 
let (loop k) 
if = k nil 

cons read-bit (loop - k 1) 
(loop debug base2-to-10 eval debug read-exp) 
(U 

append 
bits ' 

let (loop k) if = k nil cons read-bit (loop - k 1) 
(loop debug base2-to-10 eval debug read-exp) 
append 

bits ''(1 0) [Arbitrary program for U to compute number of bits] 
'(0000 0001) [that many bits of data] 

) 
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[godel2.1] 
[[[ 

Show that a formal system of complexity N 
can't prove that a specific object has 
complexity > N + 4696. 

Formal system is a never halting lisp expression 

that output pairs (lisp object, lower bound 

on its complexity). E.g., (x 4) means 

that X has complexity H(x) greater than or equal to 4. 

]]] 

[ Examine pairs to see if 2nd element is greater than lower bound. ] 
[ Returns false to indicate not found, or pair if found. ] 
define (examine pairs lower-bound) 

if atom pairs false 

if < lower-bound cadr car pairs 
car pairs 

(examine cdr pairs lower-bound) 
(examine '((x 2) (y 3)) 0) 
(examine '((x 2) (y 3)) 1) 
(examine '((x 2) (y 3)) 2) 
(examine '((x 2) (y 3)) 3) 
(examine '((x 2) (y 3)) 4) 

[This is an identity function with the size-effect of 
displaying the number of bits in a binary string,] 
define (display-number-of -bits string) 

cadr cons display length string cons string nil 

cadr try no-time-limit 'eval read-exp [This is the universal Turing machine U 
followed by its program] 

[display number of bits in entire program] 

(display-number-of -bits 

append [append prefix and data] 

[display number of bits in the prefix] 

(display-number-of -bits bits ' 

[ Examine pairs to see if 2nd element is greater than lower bound. ] 
[ Returns false to indicate not found, or pair if found. ] 
let (examine pairs lower-bound) 

if atom pairs false 

if < lower-bound cadr car pairs 
car pairs 

(examine cdr pairs lower-bound) 

[Main Loop - t is time limit, fas is bits of formal axiomatic system read so 
far] 

let (loop t fas) 

let V debug try debug t 'eval read-exp debug fas [run formal axiomatic system 
again] 

[look for theorem which is pair with 2nd element > # of bits read + size of 
this prefix] 

let s (examine caddr v debug + length fas 4696) 
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if s car s [Found it! Output first element of theorem and halt] 

if = car V success failure [Surprise, formal system halts, so we do too] 
if = cadr v out-of-data (loop t append fas cons read-bit nil) 

[Read another bit of formal axiomatic system] 
if = cadr v out-of-time (loop + t 1 fas) 

[Increase time limit] 
unexpected-condition [This should never happen.] 

(loop nil) [Initially, time limit and no bits of formal axiomatic system 
read] 

) [end of prefix, start of formal axiomatic system] 
bits ' display' (x 4881) 



) [end of entire program for universal Turing machine U] 



omega. 1 



[omega. 1] 

[[[[ Omega in the limit from below! ]]]] 

[Generate all bit strings of length k] 
define Call-bit-strings-of-size k) 
if = k '(()) 

(extend-by-one -bit (all-bit-strings-of-size - k 1)) 
[Append Eind 1 to each element of list] 
define (extend-by-one-bit x) 

if atom X nil 

cons append car x ' (0) 

cons append car x '(1) 

C extend-by-one-bit cdr x) 
C extend-by-one-bit ' ( (a) (b) ) ) 
(all-bit-strings-of-size 0) 
(all-bit-strings-of-size 1) 
(all-bit-strings-of-size 2) 
Call-bit-strings-of-size 3) 

[Count programs in list p that halt within time t] 
define (count-halt p t) 

if atom p 

+ 

if = success display car try t 'eval debug read-exp car p 
1 

(count-halt cdr p t) 
(count-halt cons bits '+ 10 15 

cons bits ' let (f ) (f ) (f ) 
nil 

99) 

(count-halt cons append bits 'read-bit ' (1) 
cons append bits 'read-exp '(1) 
nil 

99) 

[ 

The k th lower bound on Omega 

is the number of k bit strings that halt on U within time k 
divided by 2 raised to the power k. 

] 

define (omega k) cons (count-halt (all-bit-strings-of-size k) k) 
cons / 
cons '■2 k 
nil 

(omega 0) 
(omega 1) 
(omega 2) 
(omega 3) 
(omega 8) 
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[omega2 . 1] 

[ [ [ [ Omega in the limit from below ! ] ] ] ] 
[[[[ Version II ]]]] 

[Count programs with prefix bit string p that halt within time t] 
[among all possible extensions by e more bits] 
define (count-halt prefix time bits-left-to-extend) 
if = bits-left-to-extend 

if = success display car try time 'eval debug read-exp display prefix 
1 

+ (count-halt append prefix ' (0) time - bits-left-to-extend 1) 
(count-halt append prefix '(1) time - bits-left-to-extend 1) 
(count-halt bits *cons read-bit cons read-bit nil no-time-limit 0) 
(count-halt bits 'cons read-bit cons read-bit nil no-time-limit 1) 
(count-halt bits 'cons read-bit cons read-bit nil no-time-limit 2) 
(count-halt bits 'cons read-bit cons read-bit nil no-time-limit 3) 

[ 

The k th lower bound on Omega 

is the number of k bit strings that halt on U within time k 

divided by 2 raised to the power k. 

] 

define (omega k) cons (count-halt nil k k) 
cons / 
cons "2k 
nil 

(omega 0) 
(omega 1) 
(omega 2) 
(omega 3) 
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[omegaS . 1] 
[[[ 

Show that 

HCQmega.n) > n - 9488. 
t^sg^-ii is the first n bits of Omega, 
vhere we choose 

Omega = xxxOllllll. . . 
instead of 

Omega = xxxlOOOOOO. . . 
if necessary. 

]]] 

[This is an identity fiinction with the size-effect of 
displaying the length in bits of the binary prefix.] 
define (display-length-of -prefix prefix) 

cadr cons display length prefix cons prefix nil 

cadr try no-time-limit 'eval read-exp [Univeral Turing machine U] 

display 

[followed by its program:] 
append [append prefix and data] 

[code to display size of prefix in bits] 
(display-length-of -prefix bits * 

let (count-halt prefix time bits-lef t-to-extend) 
if = bits-lef t-to-extend 

if = success car try time 'eval read-exp prefix 

1 

+ (count-halt append prefix '(0) time - bits-lef t-to-extend 1) 
(count-halt append prefix '(1) time - bits-lef t-to-extend 1) 

let (omega k) cons (count-halt nil k k) 
cons / 
cons "2k 
nil 

[Read ajid execute from remainder of tape 

a program to compute an n-bit 

initial piece of Omega.] 
let w debug eval debug read-exp 

[Convert to rational number] 
let n length w 

let w debug cons base2-to-10 w 
cons / 
cons " 2 n 
nil 

let (loop k) [Main Loop] 

let X debug (omega debug k) [Compute the kth lower bound on Omega] 

if debug (<=rat w x) (big nil k n) [Are the first n bits OK? If not, bump 

k.] 

(loop + k 1) [Form the union of all output of n-bit 



137 



138 



The Limits of Mathematics 



programs within time k, output it, 
and halt . 

This is bigger than anything of complexity 
less than or equal to n!] 
[This total output will be bigger than each individual output, 
and therefore must come from a program with more than n bits. 

] 

[Compare two rational binary numbers, i.e., is x = (a / b) <= y = (c / d) ?] 
let C<=rat X y) 

let a car debug x 

let b caddr x 

let c car debug y 

let d caddr y 

<= * a d * b c 

[Union of all output of n-bit programs within time k.] 
let (big prefix time bits-left-to-add) 

if = bits-left-to-add 

try time 'eval read-exp prefix 

append (big append prefix '(0) time - bits-left-to-add 1) 
(big append prefix ' (1) time - bits-left-to-add 1) 

(loop 0) [Start main loop running with k = 0.] 

) [end of prefix] 

bits ' [Here is the data: an optimal program to compute n bits of 

Omega] 



'CO 1) 



[n = 8! Are these really the first 8 bits of Omega?] 



godel3.1 



[godeia.l] 
[[[ 

Show that a formal system of complexity N 
can't determine more than N + 9488 + 6912 
= N + 16400 bits of Omega. 

Formal system is a never halting lisp expression 
that outputs lists of the form (lOXOXXXXlO). 
This stands for the fractional part of Omega, 
and means that these 0,1 bits of Omega are known. 
X stands for an unknown bit. 

]]] 

[Count number of bits in an omega that are determined.] 
define (number-of-bits-determined w) 
if atom w 

+ (number-of-bits-determined cdr w) 
if = X car w 



[Test it.] 

(number-of-bits-determined '(X X X)) 

(number-of-bits-determined '(1 X X)) 

(number-of-bits-detGrmined '(1 X 0)) 

(number-of-bits-determined '(1 1 0)) 

[Merge bits of data into unknown bits of an omega.] 
define (supply -mis sing-bits w) 
if atom w nil 
cons if = X car w 
read-bit 
car w 

(supply-missing-bits cdr w) 
[Test it.] 

cadr try no-time-limit ' 
let (supply-missing-bits w) 
if atom w nil 
cons if = X car w 
read-bit 
car w 

(supply-missing-bits cdr w) 
(supply-missing-bits ' (0 X X X) ) 
'(1 1 1) 

cadr try no-time-limit ' 
let (supply-missing-bits w) 
if atom w nil 
cons if = X car w 
read-bit 
car w 

(supply-missing-bits cdr w) 
(supply-missing-bits '(11X11X11 1)) 
'(0 0) 

[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Returns false to indicate not found, or what it found. 
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] 

define (exEonine w n) 
if atom w false 

if < n (number-of-bits-determined car w) 
car w 

(exEonine cdr w n) 
[Test it.] 

(examine '((1 1) (1 1 1)) 0) 
(examine '((1 1) (1 1 1)) 1) 
(examine '((1 1) (1 1 1)) 2) 
(examine '((1 1) (1 1 1)) 3) 
(examine '((1 1) (1 1 1)) 4) 

[This is an identity function with the size-effect of 
displaying the number of bits in a binary string.] 
define (display-number-of -bits string) 
cadr cons display length string 
cons string 
nil 

cadr try no-time-limit 'eval read-exp [This is the universal Turing machine U 
followed by its program] 

append [Append missing bits of Omega to rest of program.] 

[Display number of bits in entire program excepting the missing bits of Omega] 
(display-number-of -bits 

append [Append prefix and formal axiomatic system] 

[Display number of bits in the prefix] 

(display-number-of -bits bits ' 

[Count number of bits in an omega that are determined,] 
let (number-of-bits-determined w) 
if atom w 

+ (number-of-bits-determined cdr w) 
if = X car w 

1 

[Merge bits of data into unknown bits of an omega.] 
let (supply-missing-bits w) 
if atom w nil 
cons if = X car w 
read-bit 
car w 

(supply-missing-bits cdr w) 

[ 

Examine omegas in list w to see if in any one of them 
the number of bits that are determined is greater than n. 
Return false to indicate not found, or what it found. 

] 

let (examine w n) 
if atom w false 

[ 

if < n (number-of-bits-determined car w) 

] 

if < 1 (number-of-bits-determined car w) [<==== changed n to 1 here so 
will succeed] 
car w 

(examine cdr w n) 

[Main Loop - t is time limit, fas is bits of formal axiomatic system read so 
far] 

let (loop t fas) 

let V debug try debug t 'eval read-exp debug fas 

[Run formal axiomatic system again] 

[Look for theorem which determines more than (c + # of bits read + size of 
this prefix) 

bits of Omega. Here c = 9488 is the constant in the inequality in H(Omega_n) 
> n - c 

(see omegaS.l and omegaS.r).] 
let s (examine caddr v + 9488 debug + length fas 6912) 
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if s (supply-missing-bits s) [Found it! Merge in undetermined bits, output 
result , and halt . ] 

if = car V success failure [Surprise, formal system halts, so we do too] 
if = cadr v out-of-data (loop t append fas cons read-bit nil) 

[Read another bit of formal axiomatic system] 
if = cadr v out-of-time (loop + t 1 fas) 

[Increase time limit] 
unexpected-condition [This should never happen.] 

(loop nil) [Initially, time limit and no bits of formal axiomatic systi 
read] 

) [end of prefix, start of formal axiomatic system] 

[Toy formal system with only one theorem.] 
bits 'display '(1X0) 

) [end of prefix and formal axiomatic system] 
' (1) [Missing bit of omega that is needed.] 



